Perl 中的正则表达式

hotsnow

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

又熟悉了一遍，Thanks.

itian

xuexi

gqkkk

原帖由 小渔村 于 2008-7-21 20:38 发表


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

结果是：www44cgi44

$string =~ s/(\d+)/$1*2/eg;

ynchnluiti

原帖由 gqkkk 于 2009-1-22 15:25 发表
$string =~ s/(\d+)/$1*2/eg;

正确

aple_smx

学习，正好想自己总结一个，

coneagoe

mark一下

sun.os

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

the right result:
www44cgi44.

田建超

跪求各位帮我注释一下这几行：
1. $text =~ /^(.*?)\r\n\r\n(.+)$/si                    
2. $head =~ m#Content-Type: (.*?)[;\r]#si
3. $cur_path =~ /(.*\/)([^\?]*)/
4. $head =~ m#charset=(.*?)[;\r]#si
5. $head =~ m#Content-Encoding: gzip#si
6. $head =~ /^HTTP\/\d+\.\d+ 200 OK/si
7.  $head =~ /^HTTP\/\d+\.\d+ 304/si
8.  $head =~ m#Content-Type: (.*?)[;\r]#si

最好能注释一下这几个，#什么意思；结尾处si什么意思

yz86yz

mark