出道正則難題，數(shù)字千分點(diǎn)

黑色陽(yáng)光_cu

1. my $v = "12321347317347317.12734712347313471324";
   
2. $v =~ s/.../.../;
   
3. print $v;
   

復(fù)制代碼

請(qǐng)寫一句正則，把 $v 變成 12,321,347,317,347,317.127,347,123,473,134,713,24 。也就是說(shuō)，按千分點(diǎn)把數(shù)字隔開(kāi)，注意小數(shù)部分是從左到右每3位一組，和整數(shù)部分剛好相反。
要求一句正則 s/.../.../ 搞定，不準(zhǔn)用 /e 修飾；另外，不管有沒(méi)有小數(shù)部分，不管整數(shù)部分和小數(shù)部分有幾位數(shù)字，答案都要正確。

zhlong8

while ($v =~ s/\d\K(?=\d{3},)|
    ,\d{3}\K(?=\d)|
    \d\K(?=\d{3}\.)|
    \.\d{3}\K(?=\d)|
    \d\K(?=\d{3}$)/,/x) {
    say $v;
}
這樣遞歸思想應(yīng)該最簡(jiǎn)單吧，不會(huì)一句 s/// 搞定 :mrgreen:

blackold

回復(fù) 1# 黑色陽(yáng)光_cu


  1 while $v =~ s/(^-?\d+)\K(\d\d\d)|(\..*?\d\d\d)\K(\d)/,$&/;

這個(gè)算不算一句s？

iLRainyday

1. s/(?=(\d\d\d)+\.)|(?<=\.(\d\d\d)+)/,/g;

復(fù)制代碼

可惜perl不支持任意深度的逆序環(huán)視，所以在regexbuddy中，只能夠使用.NET或者是JGsoft的regex引擎測(cè)試通過(guò)。

黑色陽(yáng)光_cu

1. 
   
2. my $v = "12321347317347317.12734712347313471324";
   
3. $v =~ s/\G(?:(?!^\d+$)(?!\d*\.)\d{3}(?!$)\K|\d{0,3}\.\d{3}(?!$)\K|\d*?\K(?!^)(?=(?:\d{3})+(?:\.|$)))/,/g;
   
4. warn $v;
   

復(fù)制代碼

加 /x 清淅點(diǎn)：

1. my $v = "12321347317347317.12734712347313471324";
   
2. $v =~ s/
   
3. \G
   
4. (?:
   
5.         (?!^\d+$)(?!\d*\.)\d{3}(?!$)\K
   
6.         |
   
7.         \d{0,3}\.\d{3}(?!$)\K
   
8.         |
   
9.         \d*?\K(?!^)(?=(?:\d{3})+(?:\.|$))
   
10. )
    
11. /,/xg;
    
12. warn $v;

復(fù)制代碼

黑色陽(yáng)光_cu

yinyuemi

perl還在學(xué)，用sed湊湊熱鬧，呵呵

echo "12321347317347317.12734712347313471324" |sed -r ':a;s/([^,\|\.]{3})([^,\|\.]*$)/\1,\2/;s/^([^,\|\.]*)([^,\|\.]{3})/\1,\2/;ta'
12,321,347,317,347,317.127,347,123,473,134,713,24

perl寫得很挫啊，

my $v = "12321347317347317.12734712347313471324";

while ($v =~ /[^,|\.]{3}[^\.|,]*$/)
{$v =~ s/([^,|\.]{3})([^\.|,]*$)/$1,$2/;
while ( $v =~ /^[^,|\.]*[^,|\.]{3}/)
{$v =~ s/(^[^,|\.]*)([^,|\.]{3})/$1,$2/;}
}

print $v;

CrkED

回復(fù) 1# 黑色陽(yáng)光_cu

1 while $v=~s/(\.(?:\d{3})+)(\d+?)/$1,$2/ or $v=~s/(\d+)((?:\d{3})+?)/$1,$2/;

wdavid

回復(fù)  黑色陽(yáng)光_cu

1 while $v=~s/(\.(?:\d{3})+)(\d+?)/$1,$2/ or $v=~s/(\d+)((?:\d{3})+?)/$1,$2/;
CrkED 發(fā)表于 2011-03-13 05:18

可以放在一個(gè)s///里。

1. 1 while $v=~s/(?|
   
2. (\.(?:\d{3})+)(\d+?)
   
3. |
   
4. (\d+)((?:\d{3})+?))
   
5. /$1,$2/x

復(fù)制代碼

liyangole

回復(fù) 5# 黑色陽(yáng)光_cu


    \K什么意思，use perl什么版本了