Perl 十进制转二进制 32 位然后 8 位

Question

我有一个数字（3232251030）需要从十进制转换为二进制。 获得二进制文件后，我需要将其 8 位分成数字，从而显示 IP 地址。

将十进制转换为二进制很简单：

sub dec2bin { my $str = unpack("B32", pack("N", shift)); $str =~ s/^0+(?=\d)//; # otherwise you'll get leading zeros return $str; }

sub bin2dec { return unpack("N", pack("B32", substr("0" x 32 . shift, -32))); }

e.g. $num = bin2dec('0110110'); # $num is 54 $binstr = dec2bin(54); # $binstr is 110110

参考：http://www.perlmonks.org/?node_id=2664< /a>

所以现在，我需要从二进制中分离出 8 位数字并将其保存为构成 IP 地址的数字。

$num = dec2bin('3232251030');

（$num 是二进制的“11000000 10101000 01000100 00001110”）

我需要将每个8位“11000000 10101000 01000100 00001110”拆分并保存为“192.168.60.150”。

需要建议吗？我正在研究 split 函数。

Answer 1

您实际上不必转换为二进制字符串，只需转换为 32 位整数即可：

print join '.', unpack('CCCC', pack('N', 3232251030));

将打印 192.168.60.150

Answer 2

say join('.', unpack('C4', pack('N', 3232251030)));

和

use Socket qw( inet_ntoa );
say inet_ntoa(pack('N', 3232251030));

两个输出

192.168.60.150