在perl中自动检测控制台输出编码

Question

我有一个perl脚本，用俄语向控制台输出一些信息。脚本将在多个操作系统上执行，因此控制台编码可以是cp866，koi8-r，utf-8或其他一些。是否有可移植的方法来检测控制台编码，因此我可以相应地设置STDOUT，以便正确打印文本？

Answer 1

如果你在Windows上，那就是Win32::Codepage。

Answer 2

use open ':locale';

Answer 3

• Term::Detect::Software
• Term::Encoding