perl - 如何在 Perl 中格式化特定于语言环境的数字？

我需要根据用户选择的语言在我的网络应用程序中格式化数字，例如1234.56 = "1.234,56"德语。像 sprintf 这样的东西目前是没有问题的，因为它们依赖于 LC_NUMERIC(恕我直言，这对桌面应用程序是明智的)，我必须在服务器上生成每个区域设置，这是不行的。我更喜欢使用 CLDR 的格式化字符串，但还没有找到合适的模块。我想要的是一个简而言之:

set_locale("de_DE");
print format_number(1234.56);

如何正确地做到这一点？

最佳答案

CPAN 现在有 CLDR::Number 用于基于 Unicode CLDR 的数字、百分比和货币格式。

use CLDR::Number;
my $cldr = CLDR::Number->new(locale => 'de-DE');  # or 'de_DE'

my $decf = $cldr->decimal_formatter;
say $decf->format(1234.5);  # '1.234,5'

my $curf = $cldr->currency_formatter(currency_code => 'EUR');
say $curf->format(1234.5);  # '1.234,50 €'

$curf->locale('de-AT');     # Austrian German
say $curf->format(1234.5);  # '€ 1.234,50'

CLDR::Number 提供它使用的所有语言环境数据，当前来自 CDLR v27，因此您不必依赖不一致的操作系统语言环境数据。

关于perl - 如何在 Perl 中格式化特定于语言环境的数字？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/801401/