perl 实现数字千分位分隔

概述sub digitize{ my $v = shift or return '0'; $v =~ s/(?<=^\d)(?=(\d\d\d)+$) #处理不含小数点的情况 | (?<=^\d\d)(?=(\d\d\d)+$) #处理不含小数点的情况 | (?<=\d

sub     digitize{    my $v = shift or return '0';    $v =~ s/(?<=^\d)(?=(\d\d\d)+$)     #处理不含小数点的情况            |            (?<=^\d\d)(?=(\d\d\d)+$)   #处理不含小数点的情况            |            (?<=\d)(?=(\d\d\d)+\.)    #处理整数部分            |            (?<=\.\d\d\d)(?!$)        #处理小数点后面第一次千分位，例子中就是.127后面的逗号            |            (?<=\G\d\d\d)(?!\.|$)     #处理小数点后第一个千分位以后的内容，或者不含小数点的情况            /,/gx;    return $v;}

总结

以上是内存溢出为你收集整理的perl 实现数字千分位分隔全部内容，希望文章能够帮你解决perl 实现数字千分位分隔所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。