[问题]关于Perl的模式匹配

[duanmu1123]

请问各位高手 ， 在PERL模式匹配中，如果要匹配的字符中含有括号，怎么匹配？
例如：
my $fileName = 'c:\dtest\hell (2) copy.cpp';
my $pattern = 'hell (2) copy.cpp';

print $fileName if($fileName =~ m/$pattern/g);

这样是匹配不到，请问有什么办法没有？
谢谢~

[zcg0696]

\(\)试试看，不过为什么要起这么怪的名字。。。

[duanmu1123]

模式里是用变量名来匹配里的，不能转义

[eexpress]

The use of "\Q" causes the <.> in the regex to be treated as a regular character, so that
"P." matches a "P" followed by a dot.

变量名前面可以带一些“转义”的。

具体的，可以去irc的perl房间问。

[eexpress]

or
man perlfaq6

[duanmu1123]

The use of "\Q" causes the <.> in the regex to be treated as a regular character, so that
"P." matches a "P" followed by a dot.

变量名前面可以带一些“转义”的。

具体的，可以去irc的perl房间问。

非常有效果！
谢谢了，高手！ 能不能问下，上面这段是在哪看到的？

[heejun]

The use of "\Q" causes the <.> in the regex to be treated as a regular character, so that
"P." matches a "P" followed by a dot.

变量名前面可以带一些“转义”的。

具体的，可以去irc的perl房间问。

非常有效果！
谢谢了，高手！ 能不能问下，上面这段是在哪看到的？

代码： 全选

perldoc -f quotemeta

[Tobey]

some.txt内容

d32=notebook
d35=powerpc

请问如何匹配。
my $model="d32";
open(env, ">some.txt");
while(<env>)
{
if($_ =~ /^$model=(.*)/)
{
$product=$1;
}
}
close(env);
print "$product";


如果把$model换成字符可以。但变量匹配不到。

[duanmu1123]

匹配得到啊，你再试试，