perl 정규 이름 캡 처 와 일치 하 는 변수 사용
- #!/usr/bin/perl -w
- =pod
- --
- %+ , key ;
- ,
- =cut
- use strict;
- my $str = "jack and rose";
- if ($str =~ /(?<first>\S+) (and|or) (?<second>\S+)/) {
- my ($first, $second) = ($+{first}, $+{second});
- print "$first
$second
"; # jack, rose
- }
-
- my $str1 = "name:zt,age:19,fav:sport";
- if ($str1 =~ /(?<name>\S+),age.+,(?<fav>\S+)/) {
- my ($name, $fav) = ($+{name}, $+{fav});
- print "$name, $fav
"; # name:zt, fav:sport
- }
-
- =pod
-
- , ,
- , , , , html xml
- =cut
- my $str2 = "happy new year!";
- $str2 =~ /new/;
- print <<"EOF";
- prematch: $`
- match: $&
- postmatch:$'
- EOF
-
- #
- open my $html, "< index.htm"
- or die "open failure: $!";
- while (<$html>){
- if (/<div>\s*(.*?)\s*<\/div>/){
- $_ = $`. change_div($1) . $';
- }
- print $html $_;
- }
- close $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에 따라 라이센스가 부여됩니다.