펄 코드 세 션 - 정규 표현 식 테스트 프로그램
4351 단어 정규 표현 식
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 }
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
awk 상용 명령awk 는 모든 입력 줄 을 하나의 기록 으로 인식 하고 그 줄 의 모든 단어 도 메 인 을 하나의 필드 로 인식 합 니 다. ARGC 명령 줄 에 awk 스 크 립 트 가 들 어 오 는 매개...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.