perl 实现数字千分位分隔

2019独角兽企业重金招聘Python工程师标准>>>

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;
}

转载于:https://my.oschina.net/kuerant/blog/109124