如何在Perl中以原始字节十六进制格式打印字符串？

Question

例如，我有以下脚本

use utf8;
use strict;
use warnings;
use feature 'say';
use Encode qw(decode encode);

my $s = "中";

my $octets = encode("UTF-8", $s);
say $octets;
$octets = encode("cp936", $s);
say $octets;

它在Windows cmd（在cp936中设置）中输出如下：

涓?

中

但是我要输出的是十六进制形式的原始字节，例如

E4B8AD   # 中 encoded in utf8
D6D0     # 中 encoded in GBK

此perl中的哪个功能输出原始字节？

Answer 1

view.js