perl - 在 perl 中获取当前语言环境名称

Question

我想在 Perl 中使用千分之一。我可以使用以下代码获取它

use strict;
use POSIX qw(setlocale locale_h LC_ALL);
setlocale(LC_ALL, "fr_FR");
my $lc=localeconv();
print $lc->{thousands_sep};

之后我想将语言环境更改回以前的值，但在使用 setlocale 之前我不知道如何获取语言环境.我应该从 $ENV{LANG} 解析它吗？设置为 en_US.UTF-8 ?或者有没有其他方法来获取语言环境名称？

Answer 1

setlocale()在没有第二个参数的情况下调用时返回当前语言环境，例如。

my $oldlocale = setlocale(LC_ALL);

如果要根据当前环境设置语言环境，请使用空字符串调用它(即 "" )。