Как получить кодировку текущей ОС по умолчанию в Perl-скрипте?

Question

Как я могу получить кодировку по умолчанию, используемую текущей платформой? Есть ли какой-либо модуль в CPAN или с дистрибутивом самого Perl? Я не могу найти решение в perl.org

Answer 1

См. I18N :: Langinfo.

$ LANG=en_US.UTF-8 perl -MI18N::Langinfo=langinfo,CODESET -E 'say langinfo(CODESET())'
UTF-8
$ LANG=C perl -MI18N::Langinfo=langinfo,CODESET -E 'say langinfo(CODESET())'
ANSI_X3.4-1968
$ LANG=ja_JP.eucjp perl -MI18N::Langinfo=langinfo,CODESET -E 'say langinfo(CODESET())'
EUC-JP

Это, вероятно, то, что вы ищете.Если вы будете следовать коду в I18N :: Langinfo, вы сможете увидеть, как он обнаруживает, какую локаль использовать для возврата этого.