出道正则难题，数字千分点

黑色阳光_cu

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

复制代码

请写一句正则，把 $v 变成 12,321,347,317,347,317.127,347,123,473,134,713,24 。也就是说，按千分点把数字隔开，注意小数部分是从左到右每3位一组，和整数部分刚好相反。
要求一句正则 s/.../.../ 搞定，不准用 /e 修饰；另外，不管有没有小数部分，不管整数部分和小数部分有几位数字，答案都要正确。

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;
}
这样递归思想应该最简单吧，不会一句 s/// 搞定 :mrgreen:

blackold

回复 1# 黑色阳光_cu


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

这个算不算一句s？

iLRainyday

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

复制代码

可惜perl不支持任意深度的逆序环视，所以在regexbuddy中，只能够使用.NET或者是JGsoft的regex引擎测试通过。

黑色阳光_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;
   

复制代码

加 /x 清淅点：

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;

复制代码

黑色阳光_cu

yinyuemi

perl还在学，用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

回复 1# 黑色阳光_cu

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

wdavid

回复  黑色阳光_cu

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

可以放在一个s///里。

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

复制代码

liyangole

回复 5# 黑色阳光_cu


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