在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); 

如果你想根据当前环境来设置的地点，用一个空字符串（即""）调用它。