정규 표현 식 캡 처 기능

#!/usr/bin/env perl
print "
Received signal at " , scalar localtime , "
"; sub test1 { $_ = 'http://www.perl.com/index.html'; if (m#([^:]+)://(.*)#){ print "\$1,\$2 = $1,$2
"; if ($2 =~ m#([^/]+)/(.*)#){ print "\$1,\$2 = $1,$2
"; if ($2 =~ m#([^/]+)(.*)#){ print "\$1,\$2 = $1,$2
"; } } print "\$1,\$2 = $1,$2
"; } } &test1;

[root@master ~/perl]# ./trap.pl    
Received signal at Sun Dec 15 17:32:31 2013
$1,$2 = http,www.perl.com/index.html
$1,$2 = www.perl.com,index.html
$1,$2 = index.html,
$1, $2 = www. perl. com, index. html \ # 내부 역할 영역 을 종료 한 후 원래 값 을 되 찾 았 습 니 다.
본 고 는 '지선 지 미' 블 로그 에서 나 온 것 이 니 작가 와 연락 하 세 요!

좋은 웹페이지 즐겨찾기