정규 표현 식 캡 처 기능
977 단어 perl정규 표현 식 캡 처 기능
#!/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 \ # 내부 역할 영역 을 종료 한 후 원래 값 을 되 찾 았 습 니 다.
본 고 는 '지선 지 미' 블 로그 에서 나 온 것 이 니 작가 와 연락 하 세 요!
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
File::Temp를 사용하여 Perl에서 잠금 파일 만들기retrieve 명령은 "perl"이라는 단어에 대한 DuckDuckGo 검색의 HTML을 검색하여 $HOME/duckduckperl.html 에 쓰고 이미 있는 경우 이 파일을 덮어씁니다. print 명령은 $HO...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.