perl 正则内插变量

1.

my $sql="insert“;

#不能匹配

if($sql=~m{/Q$re/E}){
print "succ1\n";
}

#可以匹配

if($sql=~m{$re}){
print "succ1\n";
}

2.，如果标量为：

$scalar = " ({";

那么输入如下代码：

$variabie =~ m" $scalar" ;

就等价于是说：$variable =~ m"({"，而这是一个运行时语法错误。如果表达式为如下

形式：

$scalar = quotemeta(' ({');

则表达式会使$scalar 变为/(/{，且把$scalar 替换为：

$variable =~ m" /(/{" ;

这样才可以匹配到读者愿意匹配的字符串({。