Perl中通过句柄向变量写入UTF-8文本出现编码异常问题咨询

这个问题我之前碰到过，核心原因是：你用use open qw( :std :encoding(utf8) )设置的编码规则，不会自动应用到内存中的字符串句柄——它只影响标准输入输出句柄（STDIN/STDOUT/STDERR）和后续打开的磁盘文件句柄。当你打开字符串标量\$output作为写入句柄时，默认是字节模式，Perl会把内部的Unicode字符串直接按字节输出（相当于把UTF-8字符的Unicode码点当成字节值），导致最终$output里的内容变成了乱码的字节序列。

两种快速解决方法： #

方法1：打开句柄时直接指定编码层

在open调用里显式加上>:encoding(utf8)，告诉Perl写入时要把Unicode字符串转换成UTF-8字节：

use warnings;
use strict;
use 5.010;
use utf8;
use open qw( :std :encoding(utf8) );

my $output;
# 这里明确指定编码层
open my $oh, ">:encoding(utf8)", \$output;
say $oh "Žluťoučký kůň.";
close $oh;

say "Žluťoučký kůň.";
print $output;

方法2：打开后用binmode添加编码层

如果不想修改open语句，也可以在打开句柄后用binmode给它加上编码转换规则：

use warnings;
use strict;
use 5.010;
use utf8;
use open qw( :std :encoding(utf8) );

my $output;
open my $oh, ">", \$output;
# 给句柄添加UTF-8编码层
binmode $oh, ":encoding(utf8)";
say $oh "Žluťoučký kůň.";
close $oh;

say "Žluťoučký kůň.";
print $output;

运行修改后的代码，你会发现$output里的内容和直接say输出的完全一致，不会再出现乱码了。

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