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

Question

我需要根据系统本地设置获取当前编码。我正在寻找以这种方式工作的功能:

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

我在网上到处找。我只找到了模块 PerlIO::locale。但我认为系统编码应该在没有额外模块的情况下更容易被识别。

Answer 1

Encode::Locale提供了处理此问题的方法。