perl 정규 이름 캡 처 와 일치 하 는 변수 사용

오늘 말 하 는 것 도 perl 정규 표현 식 의 한두 가지 고급 특성 인 네 임 캡 처 와 일치 하 는 변 수 를 파악 할 수 있다 면 능력 과 효율 을 향상 시 키 는 데 도움 이 될 것 입 니 다.

  
  
  
  
  1. #!/usr/bin/perl -w 
  2. =pod 
  3. --  
  4. %+ , key ; 
  5. ,  
  6. =cut 
  7. use strict; 
  8. my $str = "jack and rose"
  9. if ($str =~ /(?<first>\S+) (and|or) (?<second>\S+)/) { 
  10.     my ($first$second) = ($+{first}, $+{second}); 
  11.     print "$first
    $second
    "
    ;  # jack, rose 
  12.  
  13. my $str1 = "name:zt,age:19,fav:sport"
  14. if ($str1 =~ /(?<name>\S+),age.+,(?<fav>\S+)/) { 
  15.     my ($name$fav) = ($+{name}, $+{fav}); 
  16.     print "$name, $fav
    "
    ;  # name:zt, fav:sport 
  17.  
  18. =pod 
  19.  
  20. , ,  
  21. , , ,  , html xml  
  22. =cut 
  23. my $str2 = "happy new year!"
  24. $str2 =~ /new/; 
  25. print <<"EOF";    
  26. prematch: $` 
  27. match: $& 
  28. postmatch:$' 
  29. EOF 
  30.  
  31.  
  32. open my $html"< index.htm" 
  33.     or die "open failure: $!"
  34. while (<$html>){ 
  35.     if (/<div>\s*(.*?)\s*<\/div>/){ 
  36.         $_ = $`. change_div($1) . $'; 
  37.     } 
  38.     print $html $_
  39. close $html

    위 에서 제 가 쓴 간단 하고 실 용적 인 사례 에 따라 여러분 의 응용 장 소 를 편리 하 게 넓 힐 수 있 고 유용 하 기 를 바 랍 니 다.

좋은 웹페이지 즐겨찾기