perl - 如何在perl脚本中获取当前操作系统的默认编码？

如何获得当前平台使用的默认编码？
CPAN或Perl本身的发行版中是否有可用的模块？
我在perl.org中找不到解决方案

最佳答案

参见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中的代码，则可以看到它如何发现用于返回此内容的语言环境。

关于perl - 如何在perl脚本中获取当前操作系统的默认编码？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/8261655/