Perl中如何将UTF-8字符串转换为UTF-16BE十六进制格式？

我之前也踩过类似的编码转换坑，其实核心就是要走对「解码→编码→转十六进制」这三步，咱们一步步来解决：

首先，你用Encode模块的方向是对的，但可能在解码/编码的顺序或者unpack的用法上出了问题。先看完整的可运行代码：

use Encode qw(decode encode);
use feature 'unicode_strings';
# 如果你的代码文件本身是UTF-8编码，建议加上这句，确保字符串字面量被正确识别
use utf8;

my $original_str = "C'est-à-dire que ça c'est l'été.";

# 第一步：把输入的UTF-8字符串解码为Perl内部的Unicode字符串
# 这一步非常关键，如果跳过，直接编码可能会出现乱码或错误的字节流
my $unicode_str = decode('UTF-8', $original_str);

# 第二步：将Unicode字符串编码为UTF-16BE格式的字节流
my $utf16be_bytes = encode('UTF-16BE', $unicode_str);

# 第三步：把字节流转换成连续的十六进制字符串（大写）
# unpack('H*')会把每个字节转成两位十六进制字符，顺序和字节流一致
my $hex_result = unpack('H*', $utf16be_bytes);

# 输出你想要的结果：00430027006500730074002D00E0002D...
print $hex_result . "\n";

为什么你之前的尝试没成功？ #

你提到用sprintf("%vX", $string)得到了带点分隔的十六进制，那是因为这个写法是把每个字符的Unicode码点转成十六进制并用点分隔，而不是把字符串编码成UTF-16BE后的字节转成十六进制。这完全是两个不同的概念——前者是字符的编号，后者是编码后的存储字节。

另外，如果之前没正确执行decode步骤，直接对原始UTF-8字符串做encode('UTF-16BE')，相当于把UTF-8字节当成了Latin1字符来编码，结果肯定会乱。

额外注意事项 #

• 如果你的字符串是从已经正确设置编码的数据源读取的（比如用:encoding(UTF-8)打开的文件），那decode步骤可以省略，但保留它能避免很多编码混淆的问题；
• 如果需要小写的十六进制结果，把unpack('H*')改成unpack('h*')即可；
• 加上use utf8;是为了确保代码里的字符串字面量（比如你写的那句法语）被Perl识别为UTF-8，否则可能会被当成系统默认编码处理。

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