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;