[Perl]正则表达式中使用变量

sub regfromvar { my $str1="requestform"; my $str2=$str1; my $parttern = "request(form)"; my $replacement = '$1'; print $str1,"/n"; if($str1 =~ s/$parttern/eval $replacement/eigxm) { print $str1,"/n"; } print $str2,"/n"; if($str2 =~ s/$parttern/$1/igxm) { print $str2,"/n"; } } regfromvar()

 

 

 运行结果：
requestform
form
requestform
form

有几点需要记录下来：
1. 正则表达式支持变量
2. （）将匹配的字符串依次放进$1, $2, $3....中
3. eval能帮着把$1重新转义。注意 my $replacement = '$1';使用的是单引号！

当然也可以把$1，$2...的内容提取出来：
my $rr = $1 if $info =~ /aa(.*)bb/;