Perl如何匹配N多元字符转义字符？
我想去匹配一个字符串“abcdefghijklmnOPQRSTUVWXYA 1234567890,.()!@#%^*{}[]-=+?> '*测试”（双引号之间的），代码如下


$real= "abcdefghijklmnOPQRSTUVWXYA 1234567890,\.\(\)!\@#%^*\{}\[]-=\+\?> \ '\*测试 ";
$expect= ',\.\(\)!\@#%^*\{}\[]-=\+\?> \ '\* ';
if ($real=~/$expect/)
{
print "YES\n ";
}
else
{
print "NO\n ";
}
print "$real\n ";
print "$expect\n ";


无论怎样，我都不能得到YES的结果！欲哭无泪~
问题好像出在下面几个字符： . ( ) !

[解决办法]

$real= "abcdefghijklmnOPQRSTUVWXYA 1234567890,\.\(\)!\@#%^*\{}\[]-=\+\?> \ '\*测试 ";
$expect= '\,\.\(\)\!\@\#\%\^\*\{\}\[\]\-\=\+\?\> \ '\* ';
if ($real=~/$expect/)
{
print "YES\n ";
}
else
{
print "NO\n ";
}
print "$real\n ";
print "$expect\n ";

把所有的符号都加上转义。