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は、これを処理する手段を提供します。