是否有将数字(千位)分组的功能? [英] Is there a function which does grouping numbers (thousand)?

问题描述

(小)模块中隐藏的某个功能可以为我做到这一点:

Is there somewhere hidden in a (small) module a function, which does this for me:

my $var = 23654325432;
$var = reverse $var;
$var =~ s/\d{3}\K(?=\d+)/_/g;
$var = reverse $var;

我喜欢 Number :: Format ，但是它没有通过所有测试在Windows上.

I like Number::Format but it didn't pass all tests on windows.

use Number::Format;
my $nf = new Number::Format( 
    -thousands_sep   => ',',
    -decimal_point   => '.',
);

my $formatted = $nf->format_number( 23142153 );

推荐答案

查看 perl5i .它具有commify和group_digits方法.

这篇关于是否有将数字(千位)分组的功能?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！