안녕하세요. perl스크립트 작성 관련 질문이 있어서 올립니다. 우선 저는 perl스크립트를 이용해서 파일 다루는것을 공부하는 학생입니다.
첨부한 파일을 보면은 "ZERO"라는 문자가 들어가 있습니다. ZERO라는 문자는 194줄에 있는것이 마지막이며, 저는 파일에서 1~194줄까지의 내용을 다 지우고 싶습니다. 도와주세요 ㅠ
#!/usr/bin/env perl $/ = "ZERO"; my $last_line; while (<>) { $last_line = $_; } print $last_line;
감사합니다.
약간 더 짧게 하면
#!/usr/bin/env perl $/ = "ZERO"; my @all_lines = <>; print $all_lines[-1];
다른 분이 oneline으로 작성해 주시리라 기대합니다.
감사합니다 ㅎ
텍스트 포맷에 대한 자세한 정보
<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]
#!/usr/bin/env perl $/ =
감사합니다.
감사합니다.
약간 더 짧게 하면 #!/usr/bin/env
약간 더 짧게 하면
다른 분이 oneline으로 작성해 주시리라 기대합니다.
감사합니다 ㅎ
감사합니다 ㅎ
댓글 달기