Perl printf 使用逗号作为千位分隔符

Question

使用 awk，我可以用逗号打印一个数字作为千位分隔符。
(预先使用 export LC_ALL=en_US.UTF-8)。
awk 'BEGIN{printf("%\047d\n", 24500)}'

24,500

我希望相同的格式可以与 Perl 一起使用，但事实并非如此:
perl -e 'printf("%\047d\n", 24500)'

%'d

Perl Cookbook 提供了这个解决方案:

sub commify {
    my $text = reverse $_[0];
    $text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
    return scalar reverse $text;
}

但是我假设由于 printf 选项在 awk 中有效，它也应该在 Perl 中有效。

Answer 1

这是我使用了 20 多年的优雅 Perl 解决方案 :)

1 while $text =~ s/(.*\d)(\d\d\d)/$1\.$2/g;

如果你想要两位小数:

$text = sprintf("%0.2f", $text);