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

Question

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

Answer 1

如果您使用的是 Windows，则有Win32::Codepage。