如何在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中的代码，您可以看到它如何发现用于返回此内容的区域设置。