perl 스크립트 작성 파일안에 특정문자라인 윗줄 다 지우기 ..

tksxk2의 이미지

안녕하세요. perl스크립트 작성 관련 질문이 있어서 올립니다.
우선 저는 perl스크립트를 이용해서 파일 다루는것을 공부하는 학생입니다.

첨부한 파일을 보면은 "ZERO"라는 문자가 들어가 있습니다.
ZERO라는 문자는 194줄에 있는것이 마지막이며, 저는 파일에서 1~194줄까지의 내용을 다 지우고 싶습니다.
도와주세요 ㅠ

File attachments: 
첨부파일 크기
Plain text icon test.txt3.5 MB
익명 사용자의 이미지

#!/usr/bin/env perl
 
$/ = "ZERO";
 
my $last_line;
 
while (<>) {
    $last_line = $_;
}
 
print $last_line;
tksxk2의 이미지

감사합니다.

익명 사용자의 이미지

약간 더 짧게 하면

#!/usr/bin/env perl
 
$/ = "ZERO";
 
my @all_lines = <>;
print $all_lines[-1];

다른 분이 oneline으로 작성해 주시리라 기대합니다.

tksxk2의 이미지

감사합니다 ㅎ

댓글 달기

Filtered HTML

  • 텍스트에 BBCode 태그를 사용할 수 있습니다. URL은 자동으로 링크 됩니다.
  • 사용할 수 있는 HTML 태그: <p><div><span><br><a><em><strong><del><ins><b><i><u><s><pre><code><cite><blockquote><ul><ol><li><dl><dt><dd><table><tr><td><th><thead><tbody><h1><h2><h3><h4><h5><h6><img><embed><object><param><hr>
  • 다음 태그를 이용하여 소스 코드 구문 강조를 할 수 있습니다: <code>, <blockcode>, <apache>, <applescript>, <autoconf>, <awk>, <bash>, <c>, <cpp>, <css>, <diff>, <drupal5>, <drupal6>, <gdb>, <html>, <html5>, <java>, <javascript>, <ldif>, <lua>, <make>, <mysql>, <perl>, <perl6>, <php>, <pgsql>, <proftpd>, <python>, <reg>, <spec>, <ruby>. 지원하는 태그 형식: <foo>, [foo].
  • web 주소와/이메일 주소를 클릭할 수 있는 링크로 자동으로 바꿉니다.
댓글 첨부 파일
이 댓글에 이미지나 파일을 업로드 합니다.
파일 크기는 8 MB보다 작아야 합니다.
허용할 파일 형식: txt pdf doc xls gif jpg jpeg mp3 png rar zip.
CAPTCHA
이것은 자동으로 스팸을 올리는 것을 막기 위해서 제공됩니다.