잘 안되서 질문드려봅니다.(펄 스크립트에 관한내용)
글쓴이: xoahrdl / 작성시간: 토, 2007/02/03 - 5:46오후
제가 아래처럼 어떤 파일에서 시작패턴과 끝패턴 사이의 문자를 출력하려고 하는데..
이렇게 짰습니다.
undef $/;
open (FILE,'test-dirent-2lev.out');
$data=;
close FILE;
$data =~ s/.*Copyright(.*)Todd.*/$1/;
print $data;
문제는 출력 내용이 시작패턴과 끝패턴 사이의 출력은 나오는데.. 그 이전 line들과 그 이후line들이 몽땅 출력이 된다는 겁니다.
그러고 또하나의 문제는 시작패턴과 끝패턴이 같은 line에 있어야 한다는것입니다.
아마 파일을 읽어올때 한줄씩 읽어들여와서 그런거 같은데 어떻게 해야할까요?
감사합니다. 꾸벅 (_ _ );
즐거운 주말되시길 바랍니다~
Forums:
문제가 이해하기 좀
문제가 이해하기 좀 힘들지만..
if ($file =~ /Copyright(.+)Todd/[A]) { print $1; }대략 위와 같은 식이면 될터인데요 [A] 부분은 확장옵션으로 new line을 무시하라는 옵션이 있습니다 (지금은 기억이 안나서) 그 옵션을 적어주시면 new line무시하고 검색을 해 나가서 여러 라인에 걸쳐서 수행됩니다.
감사합니다.
많은 도움 됐습니다.
인용:$data =~
$data ~= s/.*Copyright(.*)Todd.*/$1/s;처럼 뒤에 s 옵션을 붙여주면 "." 이 \n까지 포함하게 됩니다.
위에서설명하신 것처럼
($data)=($data~=/Copyright(.+)Todd/s);
로 표현할 수도 있겠습니다.
이 방법들은 파일을 전부다 $data에 넣는 방법이므로 파일의 크기가 클 경우에는 파일 전체를 읽지 않고
($data) = (join("",grep { /Copyright/ ... /Todd/ } )=~/Copyright(.*)Todd/);
처럼 쓸수 있습니다. 더 간단히 쓰는 방법은 생각이 안나네요.
감사합니다.
많은 도움이 되었습니다.
근데 시작패턴이나 끝패턴 자체가
특수문자 . , ( / _
이런것들을 갖고 있으면 인식을 못하네요 ㅠㅠ
그리구 하나 궁금한게 있는데..
파일명같은거를 아규먼트로 받아서 처리하고 싶은데 가능한지요..
가능하다면 어떻게 하는지.. ㅡㅡ;
정말 죄송합니다.
아규먼트는 @ARGV에
아규먼트는 @ARGV에 모두 들어갑니다.
특수문자(\/.[]()=*?)는 모두 \를 앞에 붙여야 하고요.
http://www.perl.org/books/beginning-perl/ 같은 문서를 참고하거나
Perl CookBook이나 "펄 제대로 배우기" 같은 책을 보셔도 좋습니다.
댓글 달기