在Windows上的Perl中获取当前系统本地编码

Question

我需要根据系统本地设置获取当前编码。我正在寻找这样的功能：

my $sysEncoding = getSystemEncoding(); 
#and now $sysEncoding equals e.g. 'windows-1250' 

我在网上随处看。我找到了模块PerlIO::locale。但我认为系统编码应该更容易被识别，而无需额外的模块。

Answer 1

use Win32::API; 
if (Win32::API->Import('kernel32', 'int GetACP()')) { 
    $enc = GetACP(); 
    print "Current local encoding is '$enc'\n"; 
} 

感谢提示Ikegami。

Answer 2

Encode::Locale提供了处理这种情况的方法。