<分区>
我编写了一个 Perl 脚本,它接受一个输入的十六进制值,然后返回等效的二进制值。我需要为该 8 位整数签名并查看带符号整数的值。我所看到的 Perl 文档中似乎没有涵盖这种特殊情况。脚本粘贴在下面:
#! perl
use warnings;
print "Enter hexidecimal number:";
chomp ($hexNum = <STDIN>);
print $hexNum . "\n";
print join "\n", map { unpack ('B*', pack ('H*',$_)) } split ':',
$hexNum;
这个问题与其他条目不同(特别是 Converting hexadecimal numbers in strings to negative numbers, in Perl 因为它专门处理 8 位整数,而不是简单地转换为十进制。