正则替换的区别

85sui

$string =~ s/^(-?\d+)(\d\d\d)/$1,$2/g;
和
1 while $string =~ s/^(-?\d+)(\d\d\d)/$1,$2/；
第一个为什么没把所有的都加上逗号

yizhengming

\d+会匹配所有的数字，知道匹配失败为止或匹配到字符串末尾　然后再吐出三个\d

yinyuemi

回复 1# 85sui


    你使用了'^'锚定符

melik003

这跟描掟符无关吧

cdtits

1. my $text = 234325678342;
   
2. $text =~ s/(\d{3})/,$1/g;
   
3. $text =~ s/^,//;
   
4. print $text;

复制代码

cdtits

1. my $num = 47392147032170;
   
2. $num =~ s/(?<=\d)(?=(?:\d{3})+$)/,/g;
   
3. print "$num\n";
   

复制代码

ciedecem

85sui 发表于 2012-06-15 14:20
$string =~ s/^(-?\d+)(\d\d\d)/$1,$2/g;
和
1 while $string =~ s/^(-?\d+)(\d\d\d)/$1,$2/；

其实二楼说的很对的。
第一个表达式，就是二楼说的那样，我可以帮忙解释下：
假设你给的$string = 12330384558;
标准量词+会尽可能多的匹配所有的可能的字符。这里的\d+就匹配了所有的$string字符，然后再尝试匹配（\d\d\d），之前的\d+被迫吐出三个数字，从而就成了12330384，558，而此时已经到了字符串的末尾，没有“未匹配部分”供/g的下一次匹配迭代使用了。

对于while，道理一样，只是每次循环$string的值都被修改了一次,\d+匹配的内容也不断缩小。

$pattern ='NUM1 NUM2 NUM3';
$pattern =~ s/NUM/LETTER/g;
print "$pattern\n";
这个可以帮你理解/g的作用， 正则引擎应该有指针在标识着匹配的“当前位置”。
不完全引用《精通正则表达式》