펄 코드 세 션 - 정규 표현 식 테스트 프로그램

4351 단어 정규 표현 식
Perl 언어 입문 을 참고 하 는 정규 표현 식 간단 한 테스트 프로그램:
 1 #!/usr/bin/perl
 2 use warnings;
 3 use strict;
 4 
 5 my $pattern=$ARGV[0];
 6 if(not $pattern){
 7     print "Usage: ./ret.pl PATTERN
"; 8 exit; 9 } 10 print "The pattern is m{$pattern}.
"; 11 print "Ctrl + D to exit.
"; 12 print ">"; 13 while(<STDIN>){ 14 chomp(my $line = $_); 15 if($line =~ m{$pattern}){ 16 print "matched: '$`<$&>$''.
"; 17 } else { 18 print "not matched.
"; 19 } 20 print ">"; 21 }

좋은 웹페이지 즐겨찾기