[求助]perl模式匹配

duanmu1123

UID: 16164
帖子: 77
积分: 177
在线时间: 8 小时

1^# duanmu1123 发表于 2008-07-26 09:58

[求助]perl模式匹配

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

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

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

qiang

UID: 17966
帖子: 1
积分: 2
在线时间: 10 分钟

2^# qiang 发表于 2008-07-28 17:46

使用反斜杠 \ 来把特殊符号 escape 掉。或者你也可以使用 quotemeta。 perldoc -f quotemeta 看文档。

szbinlee

UID: 595
帖子: 1
积分: 2
在线时间: 10 分钟

3^# szbinlee 发表于 2008-08-26 11:49

my $fileName = 'c:\dtest.
my $fileName = 'c:\dtest\hell (2) copy.cpp';
my $pattern = 'hell $2$ copy.cpp';

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

zq0417

UID: 24779
帖子: 8
积分: 18
在线时间: 10 分钟

4^# zq0417 发表于 2008-08-28 17:10

my $fileName = 'c:\dtest.
my $fileName = 'c:\dtest\hell (2) copy.cpp';
my $pattern = '\w $\d$ \w\.cpp$';

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