在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提供了處理這種情況的方法。