我有以下十六进制地址:2001:0db8:3c4d:0015:0000:0000:abcd:ef12。十六进制数字有 8 block ,每 block 长 16 位,共 128 位。我想将这些 block 中的每一个都转换成二进制,即如果我采用第一个 block - 2001,那么我想将其转换为二进制,而不是采用第二个 block - 0db8,将其转换为二进制等等......
同样,我需要遍历每个 block ,将它们转换为二进制文件,然后打包。
谁能告诉我实现它的最简单方法?
最佳答案
my $str = '2001:0db8:3c4d:0015:0000:0000:abcd:ef12';
print join "\n", map { unpack ('B*', pack ('H*',$_)) } split ':', $str;
输出:
0010000000000001
0000110110111000
0011110001001101
0000000000010101
0000000000000000
0000000000000000
1010101111001101
1110111100010010
编辑
以下几行是您代码中的罪魁祸首。尝试删除它们。
my $tempbin1 = pack( 's', $elements[0]);
my $tempbin2 = pack( 's', $elements[1]);
关于perl - 将十六进制字符串转换为二进制,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/19783674/