在Perl中獲取當前的語言環境名稱

Question

我想在Perl中使用Millennium_Sep。 我可以使用以下代碼來獲取它

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

之后，我想將語言環境更改回以前的值，但是在使用setlocale之前我不知道如何獲取語言環境。 我應該從設置為en_US.UTF-8 $ENV{LANG}解析它嗎？ 還是有其他方法來獲取語言環境名稱？

Answer 1

setlocale()在不帶第二個參數的情況下返回當前語言環境，例如。

my $oldlocale = setlocale(LC_ALL);

如果要根據當前環境設置語言環境，請使用空字符串（即"" ）進行調用。