正則替換的區(qū)別

85sui

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

yizhengming

\d+會匹配所有的數(shù)字，知道匹配失敗為止或匹配到字符串末尾　然后再吐出三個\d

yinyuemi

回復(fù) 1# 85sui


    你使用了'^'錨定符

melik003

這跟描掟符無關(guān)吧

cdtits

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

復(fù)制代碼

cdtits

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

復(fù)制代碼

ciedecem

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

其實二樓說的很對的。
第一個表達式，就是二樓說的那樣，我可以幫忙解釋下：
假設(shè)你給的$string = 12330384558;
標(biāo)準(zhǔn)量詞+會盡可能多的匹配所有的可能的字符。這里的\d+就匹配了所有的$string字符，然后再嘗試匹配（\d\d\d），之前的\d+被迫吐出三個數(shù)字，從而就成了12330384，558，而此時已經(jīng)到了字符串的末尾，沒有“未匹配部分”供/g的下一次匹配迭代使用了。

對于while，道理一樣，只是每次循環(huán)$string的值都被修改了一次,\d+匹配的內(nèi)容也不斷縮小。

$pattern ='NUM1 NUM2 NUM3';
$pattern =~ s/NUM/LETTER/g;
print "$pattern\n";
這個可以幫你理解/g的作用， 正則引擎應(yīng)該有指針在標(biāo)識著匹配的“當(dāng)前位置”。
不完全引用《精通正則表達式》