为何非拉丁字母区域设置下Encode::decode处理本地化strftime输出异常？

这个问题的核心在于strftime的输出编码特性和Perl处理字符串的方式差异，咱们一步步拆解：

1. strftime的输出是什么？ #

当你设置LC_ALL为ko_KR.UTF-8或de_DE.UTF-8这类UTF-8 locale时，strftime("%b", localtime)返回的是UTF-8编码的字节串，而不是Perl内部的Unicode字符串。也就是说，它直接输出的是符合UTF-8规则的原始字节，不是Perl能直接识别的Unicode字符序列。

2. Encode::decode的作用与警告来源 #

当你用Encode::decode("UTF-8", ...)处理这个字节串时，会把它转换成Perl内部的Unicode字符串。这时候问题来了：

• 如果你直接用say输出这个Unicode字符串，但Perl的标准输出没有明确设置为UTF-8编码，Perl就会抛出"Wide character in say"警告——因为它不知道该用什么编码把Unicode字符转换成终端能识别的字节。
• 韩语场景下$@为空，是因为这个警告不是错误，eval只会捕获致命错误，警告不会被计入$@里。

3. 为什么不使用decode就正常？ #

当你跳过Encode::decode直接输出strftime的结果时，Perl会把它当作普通字节串直接输出。只要你的终端支持UTF-8（这也是你能看到"3월"的原因），就能正确显示，而且不会触发警告——因为Perl不需要做任何编码转换，只是把原始字节扔给终端。

解决办法 #

如果想要避免警告同时正确处理Unicode字符串，有两个常用方案：

• 方案一：设置标准输出的编码
  在代码开头加上binmode STDOUT, ':encoding(UTF-8)'，告诉Perl用UTF-8编码输出Unicode字符串，这样就不会再出现Wide character警告了：

  LC_ALL=ko_KR.UTF-8 perl -MPOSIX -MEncode -E 'binmode STDOUT, ":encoding(UTF-8)"; eval { say Encode::decode("UTF-8", strftime("%b", localtime)) }; say $@;'
  

• 方案二：直接使用strftime的输出
  既然strftime在UTF-8 locale下已经返回UTF-8字节串，完全可以不用Encode::decode，直接输出即可，既避免警告又简单：

  LC_ALL=ko_KR.UTF-8 perl -MPOSIX -E 'say strftime("%b", localtime)'
  

内容的提问来源于stack exchange，提问作者simbabque