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

如果你想根據當前環境來設置的地點，用一個空字符串（即""）調用它。