perl 实现数字千分位分隔

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