| [ CnUnix ] in KIDS 글 쓴 이(By): wang (Chip쟁이) 날 짜 (Date): 2004년 7월 5일 월요일 오후 12시 14분 22초 제 목(Title): Re: Perl regular expression 제가 아래와 같이 고치고 하니 잘 되는데요.. ========================================== #!/usr/bin/perl -w while(<>) { print "line is :$_"; if (/([^\s"]+)/) { print "good girl\n"; print $1; } else { print "not nice\n"; } } =========================================== 바꾼 것은 perl에 '-w'옵션을 주어서 warning을 표시하도록 한것 file open 대신 stdin을 쓴 것(단지 편의성을 위해) if문을 간단하게 고친 것.. 결과는 ====================================== $ reg_test.pl <a href="abc">IBM</a> <---요거는 사용자 입력 line is :<a href="abc">IBM</a> good girl <a ============================================= |