perl - 如何在 Perl 中输出二进制文件？

Question

我希望能够输出 0x41 ，并让它显示为 A .

这是我迄今为止尝试过的:

my $out;
open $out, ">file.txt" or die $!;
binmode $out;
print $out 0x41;
close $out;

它输出 65而不是 A在生成的文件中。这不是我想要的。

我也看过 this similar question ，但我不会把答案转移过来。 pack a short 结果为 2 个字节而不是 1 个字节。

Answer 1

您可以使用 chr(0x41) .

对于较大的结构，您可以使用 pack :

pack('c3', 0x41, 0x42, 0x43) # gives "ABC"

关于您对 pack的怀疑，请务必阅读它的页面 - 它非常通用。 'c'打包一个字节， 's' (如该问题中所见)将打包一个两字节的字。