匹配模式里面的括号

maybenot

$_ = 'abc(def)';
$pattern = 'abc(def)';

print "YES" if /$pattern/;

我理解的是：字符串用单引号括起来就是匹配括号字符，试了不行，而且如果把$pattern里面的右括号去掉的话编译报错，请问怎回事？

alexru

不太明白你的意思？

午夜凋零

把$pattern换成
$pattern = 'abc\(def\)';
这样就行了。

pengphy

() 在regexp里面是一个类似C中int，，，保留字 有特殊意义

需要转义 或者用qr

Mr-Summer

1. $a1="abc\ndef";
   
2. $a2='abc\ndef';
   
3. $b1="abc(def)";
   
4. $b2='abc(def)';
   
5. print "\n yes" if $a1 eq $a2;
   
6. print "() yes" if $b1 eq $b2;

复制代码

应该是正则对小括号的二次处理。

羲之遗韵

这和单引号没有关系吧，()在正则表达式里面用来做分组匹配，所以要转义。

zhlong8

如果不需要当正则表达式处理，那么内插的变量用 \Q \E 包起来是好习惯。

Perl_Er

1. $regex = quotemeta( $regex );
   
2. 
   
3. if( $string =~ m/$regex/ ) { ... }

复制代码

OR

1. if( $string =~ m/\Q$regex\E/ ) { ... }

复制代码