perl - 如何打印打包函数的结果？

Question

我喜欢验证 pack 的作用。我有以下代码试一试。

$bits = pack 'N','134744072';

如何打印位？

我做了以下事情：

printf ("bits = %032b \n", $bits);  

但它不起作用。

谢谢 ！！

标签： perl

Answer 1

如果您想要数字的二进制表示，请使用

my $num = 134744072;
printf("bits = %032b\n", $num); 

如果您想要字节字符串的二进制表示，请使用

my $bytes = pack('N', 134744072);
printf("bits = %s\n", unpack('B*', $bytes));