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

q1208c

回复 10# iamlimeng

我没看过 小骆驼.  

精通正则 上的例子, 是一个整数. 没有小数. 所以, 我才拿出来问了一下. 因为按照约定, 小数部分, 是不能添加分隔的. 只有整数部分才需要.
   

yeahnoob

实际应用环境中，可能是直接用cpan现成的模块，比如

1. use CLDR::Number::Format::Decimal;

复制代码

，生产效率会比自己动手高很多。
比如下面这样子：

1. 
   
2. Perl> use Number::Format;
   
3. 
   
4. Perl> my $a= new Number::Format;
   
5. Number::Format=HASH(0xe1c558)
   
6. 
   
7. Perl> my $b=$a->format_number("-99123123123.4564560",2);
   
8. -99,123,123,123.46
   

复制代码

但是如果想作为单独的一个例子——比较费神——使劲Google了一会儿，结果如下：
perldoc perllocale里的一个例子

1. use POSIX qw(locale_h);
   
2. 
   
3.            # Get some of locale's numeric formatting parameters
   
4.            my ($thousands_sep, $grouping) =
   
5.                    @{localeconv()}{'thousands_sep', 'grouping'};
   
6. 
   
7.            # Apply defaults if values are missing
   
8.            $thousands_sep = ',' unless $thousands_sep;
   
9. 
   
10.            # grouping and mon_grouping are packed lists
    
11.            # of small integers (characters) telling the
    
12.            # grouping (thousand_seps and mon_thousand_seps
    
13.            # being the group dividers) of numbers and
    
14.            # monetary quantities.  The integers' meanings:
    
15.            # 255 means no more grouping, 0 means repeat
    
16.            # the previous grouping, 1-254 means use that
    
17.            # as the current grouping.  Grouping goes from
    
18.            # right to left (low to high digits).  In the
    
19.            # below we cheat slightly by never using anything
    
20.            # else than the first grouping (whatever that is).
    
21.            if ($grouping) {
    
22.                @grouping = unpack("C*", $grouping);
    
23.            } else {
    
24.                @grouping = (3);
    
25.            }
    
26. 
    
27.            # Format command line params for current locale
    
28.            for (@ARGV) {
    
29.                $_ = int;    # Chop non-integer part
    
30.                1 while
    
31.                s/(\d)(\d{$grouping[0]}($|$thousands_sep))/$1$thousands_sep$2/;
    
32.                print "$_";
    
33.            }
    
34.            print "\n";
    

复制代码

有人写的另外一个例子，这个例子的匹配表达也很容易被读懂。

1. # from Andrew Johnson <[email]ajohnson@gpu.srv.ualberta.ca[/email]>
   
2.     sub commify {
   
3.        my $input = shift;
   
4.         $input = reverse $input;
   
5.         $input =~ s<(\d\d\d)(?=\d)(?!\d*\.)><$1,>g;
   
6.         return reverse $input;
   
7.     }
   

复制代码

上面这个sub 可以解决带小数点的数字添加千位分隔符问题
——例如对于具体的数字$a=123123123.456456，按如下步骤转换：

1. 
   
2. yeahnoob@yeahnoob-desktop:~$ perlconsole
   
3. Perl Console 0.4
   
4. Perl> my $a=123123123.456456;
   
5. 123123123.456456
   
6. 
   
7. Perl> $a=reverse $a;
   
8. 654654.321321321
   
9. 
   
10. Perl> $a =~ s<(\d\d\d)(?=\d)(?!\d*\.)><$1,>g;
    
11. 2
    
12. 
    
13. Perl> $a=reverse $a;
    
14. 123,123,123.456456
    
15. 
    
16. Perl> $a
    
17. 123,123,123.456456
    
18. 
    
19. Perl>
    

复制代码

q1208c

回复 12# yeahnoob

感谢兄弟的回复.

其实我平时用到这种给数字加 千位分隔的情况并不多. 这次问这个, 只是因为前面帮一个兄弟看问题的时候, 忽然发现了新问题.

minirain

sub COMMA
{

local $_  = shift;
  
  1 while   s/^([-+]?\d+)(\d{3})/$1,$2/g;         #before point split with ',' every 3 digit
  
  1 while s/(.?)(\d{3})(\d+)/$1$2,$3/;              #after point split with ',' every 3 digit
  
   

return $_;

}

q1208c 发表于 2014-08-26 17:11
http://bbs.chinaunix.net/forum.php?mod=viewthread&tid=4151864

刚才看到这个贴子, 目测了一下, 也顺便 ...

felix0608

perl -le  '$a=123445454;$a =~ s/(?<=\d)(?=(\d{3})+$)/,/g;print $a'

yeahnoob

felix0608 发表于 2014-09-14 17:15
perl -le  '$a=123445454;$a =~ s/(?

这段code，遇上输入有小数点，就不能正常工作，LZ也有提到。

q1208c

回复 15# felix0608

这个结果应该是有点小问题的.

1. perl -le  '$a=123445454.234123412341;$a =~ s/(?<=\d)(?=(\d{3})+$)/,/g;print $a'

复制代码

q1208c

回复 14# minirain

小数部分, 应该是没有千位符的吧?