如何正确添加 千位分隔符?

q1208c

http://bbs.chinaunix.net/forum.php?mod=viewthread&tid=4151864

刚才看到这个贴子, 目测了一下, 也顺便试了一下, 结果发现, 它对整数是没问题的, 但对于带小数点的数, 好象有点问题,

1. 
   
2. $ echo "1234567890.1333" | perl -pe 's/(\d{1,3})(?=(?:\d{3})+(?!\d))/$1,/g'
   
3. 1,234,567,890.1,333
   

复制代码

各位有何高见?

yinyuemi

回复 1# q1208c


    perl -pe 's/(\d{1,3})(?=(?:\d{3})+(?!\d|$))/$1,/g'

q1208c

回复 2# yinyuemi

可否解释一下 (?!\d|$) , 我不是太理解这个.
   

yinyuemi

回复 3# q1208c


    原帖中你解释挺清楚的啊，就是多了一个判断，结尾锚定

q1208c

回复 4# yinyuemi

  我那是蒙的.
   

yybmsrs

这个还是很经典的例子

ghoull

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. 
    
13. 这个一句正则搞定 不论整数 小数 都可以！
    
14. say $v;

复制代码

ghoull

1. my $v = "123213473173473.12";
   
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. say $v;

复制代码

这个精简点点 哈哈哈！

iamlimeng

回复 2# yinyuemi


    如果数字没有小数，貌似不能正确输出！

iamlimeng

回复 1# q1208c


小骆驼上有一个精典的例子，用了一个while循环，比较简洁。

小数部分一般应该不用添加的吧，上面两层楼的代码顺便把小数也加了分隔，正则比较复杂，赞！

我最开始都用最笨的办法，SPLIT后再组合，很老土，当时就是想先实现再说！