Perl 中的正则表达式

weismart

UID: 20567
帖子: 164
积分: 377
在线时间: 1 天 12 小时

11^# weismart 发表于 2007-06-14 10:15

还有不懂的，
.*  匹配0或多次任何字符。

一个*就行了，干嘛还要加个.

“*"是个“量化”标示。就好比数学上
                           “2”个“1”=1X2
                                       “3”个“4”=4X3
光有* 不能表达出0个或多个 “什么东东”。同样？ + 也是这个道理。

hutule110

UID: 7208
帖子: 177
积分: 407
在线时间: 1 天 18 小时

12^# hutule110 发表于 2007-06-14 11:22

呵呵,楼主总结的真好

Lonki

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

13^# Lonki 发表于 2007-09-21 18:55

QUOTE:

原帖由 gunguymadman007 于 2003-12-1 21:28 发表
look
偶以前也是经常用/（.*)^D$/来匹配任何以^D结尾的东东啊

^不转???

D结尾的用/D$/即可

另外, Perl正则默认是贪婪匹配
.*?表示非贪婪匹配

for example:
$str = 'ChinaUnix';
$str = /(a.*)/; ### $1 = 'aUnix'
$str = /(a.*?)/; ### $1 = 'a'

对于.+?也如此
$str = 'ChinaUnix';
$str = /(a.+)/; ### $1 = 'aUnix'
$str = /(a.+?)/; ### $1 = 'aU'

qtsh

UID: 24054
帖子: 112
积分: 257
在线时间: 17 小时

14^# qtsh 发表于 2007-10-23 10:05

我测试了以下代码：
#!/usr/bin/perl
$year="x\x4\sf\a\f\baf\fax";
$year=~s/\\x/\%/g;
print $year."\n";

结果为：
xsf
af
ax

很难理解呀，以上替换不是将串中的“\x”替换为"%"么，结果跟想像的差别很大以，哪位大虾给解释一下。

socyno

UID: 40994
帖子: 0
积分: 0
在线时间: 10 分钟

15^# socyno 发表于 2007-11-05 22:02

QUOTE:

原帖由 qtsh 于 2007-10-23 10:05 发表
我测试了以下代码：
#!/usr/bin/perl
$year="x\x4\sf\a\f\baf\fax";
$year=~s/\\x/\%/g;
print $year."\n";

结果为：
xsf
af
ax

很难理解呀，以上替换不是将串中的“\x”替换为"%"么，结果 ...

在字符串中\必须以\\的方式才会有效，否则被视为字符转义符,
因此 $year="x\x4\sf\a\f\baf\fax"; 这一句应该不要你想像的结果，

你的意思应该是
$year="x\\x4\\sf\\a\\f\\baf\\fax";

open2open2

UID: 38845
帖子: 179
积分: 411
在线时间: 1 天 19 小时

16^# open2open2 发表于 2008-07-07 14:42

LZ不错
这个风页我收藏了
别拦我啊！

yifangyou

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

17^# yifangyou 发表于 2008-07-21 16:48

谢谢楼主介绍，我在linux下最喜欢用grep

小渔村

UID: 35768
帖子: 26
积分: 59
在线时间: 1 小时

18^# 小渔村发表于 2008-07-21 20:38

QUOTE:

$string = "www22cgi44";
$string =~ s/(\d+)/$1*2/e; # (/d+)代表 $string 中的一个或多个数字字符，将这些数字字符执行 *2 的操作，因此最后 $string 变成了 "www44cgi88"。

#!/usr/bin/perl
$string = "www22cgi44";
$string =~ s/(\d+)/$1*2/e;
print $string."\n";

结果是：www44cgi44

hotsnow

UID: 3859
帖子: 160
积分: 368
在线时间: 1 天 11 小时

19^# hotsnow 发表于 2008-12-24 16:33

x* 匹配 0 次或多次 x 字符串，但匹配可能的最少次数
x+ 匹配 1 次或多次 x 字符串，但匹配可能的最少次数
.* 匹配 0 次或一次的任何字符
.+ 匹配 1 次或多次的任何字符

这里是有问题的。
在perl里 * 表示零个或多个， + 表示一个或多个。
要匹配最少的次数需要在 * 或 + 后面加 ? 号。

例如：
$ perl -We '$string="kkbbba"; print "$1" if $string =~ /kk(b*)/'
bbb
$
上面的 b* 匹配了尽可能多的 b，即贪婪

$ perl -We '$string="kkbbba"; print "$1" if $string =~ /kk(b*?)/'

$
上面 b*? 最小匹配是零个b，非贪婪。所以输出是空

chinatzbcn

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

20^# chinatzbcn 发表于 2008-12-31 09:16

又熟悉了一遍，Thanks.