Perl中如何将UTF-8多字节字符转换为字节字符串？

刚好这两个问题都是Perl编码处理里的常见需求，我来一步步给你讲清楚：

Perl内部区分两种字符串类型：Unicode逻辑字符串（存储字符本身）和字节字符串（存储原始字节序列）。要把Unicode多字节字符转成UTF-8编码的字节串，最可靠的方式是用Perl核心的Encode模块：

• 首先确保你的源字符串是Unicode类型（如果是从文件/输入读取的，可能需要先decode解码；直接写字面量的话，建议加上use utf8;声明让Perl识别）
• 调用Encode::encode('UTF-8', $unicode_str)，这个函数会把Unicode字符序列转换成对应的UTF-8字节序列，返回的就是纯字节字符串。

示例代码：

use utf8;
use Encode;

# 定义一个Unicode多字节字符
my $unicode_char = '墥';
# 转换为UTF-8字节字符串
my $utf8_byte_str = encode('UTF-8', $unicode_char);

# 可选：验证字节内容（十六进制格式）
printf "字节十六进制表示：%vX\n", $utf8_byte_str; # 输出 F0.A5.A2.A5

Devel::Peek的Dump函数确实只能把内部结构输出到控制台，但我们可以手动生成这种八进制转义格式的字符串，比捕获Dump输出更可靠：

核心思路是：先把Unicode字符转成UTF-8字节串（用上面的方法），再把每个字节转换成\xxx格式的八进制转义序列。

具体实现代码：

use utf8;
use Encode;

my $char = '墥';
# 第一步：转成UTF-8字节串
my $utf8_bytes = encode('UTF-8', $char);
# 第二步：遍历每个字节，生成八进制转义
my $escaped_str = join '', map { sprintf '\%03o', ord($_) } split //, $utf8_bytes;

# 输出结果：\360\245\242\245
print $escaped_str, "\n";

如果一定要用Devel::Peek来获取信息并捕获输出，可以借助Capture::Tiny模块，但这种方法依赖Dump的输出格式，不如直接生成稳定：

use utf8;
use Devel::Peek;
use Capture::Tiny qw(capture_stdout);

my $char = '墥';
# 捕获Dump的控制台输出
my $dump_output = capture_stdout { Dump($char) };

# 从输出中提取八进制转义序列（需根据Dump的实际格式调整正则）
if ($dump_output =~ /UTF8 "(\360\245\242\245)"/) {
    print "提取到的转义序列：$1\n";
}

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