Perl - 将十六进制转换为二进制并将其用作字符串

Question

我是 Perl 新手，在使用不同类型时遇到了困难。

我正在尝试获取一个十六进制寄存器，将其转换为二进制，将其用作字符串并从二进制字符串中获取子字符串。

我做了一些搜索，我尝试的是：

my $hex = 0xFA1F;
print "$hex\n";

结果是 "64031" 。第一个惊喜：我不能在 Perl 中打印十六进制值而不仅仅是十进制值吗？

$hex = hex($hex);
print "$hex\n";

结果是 409649。第二个惊喜：我希望结果也是 64031，因为“hex”将十六进制转换为十进制。

my $bin = printf("%b", $hex);

它打印二进制值。有没有办法在不打印的情况下将十六进制转换为 bin？

谢谢， SLP

Answer 1

十进制、二进制和十六进制都是数字的文本表示（即写入数字的方式）。计算机无法将这些作为数字来处理。

my $num = 0xFA1F; 将指定的数字（六万四千三十一）存储到$num。它以硬件可以理解的格式存储，但这不是很重要。重要的是它存储为数字，而不是文本。

当要求print 打印一个数字时，它会以十进制（如果足够大/足够小，则以科学计数法）打印出来。它不知道数字是如何创建的（来自十六进制常数？来自加法？等），因此无法确定如何根据该数字输出。

要将数字打印为十六进制，您可以使用

my $hex = 'FA1F';   # $hex contains the hex representation of the number.
print $hex;         # Prints the hex representation of the number.

或

my $num = 0xFA1F;   # $num contains the number.
printf "%X", $num;  # Prints the hex representation of the number.

Answer 2

您正在使用十六进制格式分配一个整数值。 print 默认以十进制格式打印数字，所以你得到的是 64031。

您可以使用 printf() 通过提供不同的格式来验证这一点。

$ perl -e ' my $num = 0xFA1F; printf("%d %X %b\n", ($num) x 3 ) '
64031 FA1F 1111101000011111

$ perl -e ' my $num = 64031; printf("%d %X %b\n", ($num) x 3 ) '
64031 FA1F 1111101000011111

$ perl -e ' my $num = 0b1111101000011111; printf("%d %X %b\n", ($num) x 3 ) '
64031 FA1F 1111101000011111

$

要获取字符串中0xFA1F的二进制格式，可以使用sprintf()

$ perl -e ' my $hex = 0xFA1F; my $bin=sprintf("%b",$hex) ; print "$bin\n" '
1111101000011111

$

Answer 3

让我们按顺序处理每一点混乱

my $hex = 0xFA1F;

这会在$hex 中存储一个十六进制常量，但是 Perl 没有十六进制数据类型，因此尽管您可以编写十六进制常量、二进制和八进制常量，但 Perl 会将它们全部转换为十进制。注意有很大的区别

my $hex = 0xFA1F;

和

my $hex = '0xFA1F';

第一个存储一个数字到 $hex，当你打印出来你会得到一个十进制数字，第二个存储一个字符串，当打印出来时会给出0xFAF1，但可以传递给hex() 函数转换为十进制。

$hex = hex($hex);

hex 函数将 字符串 转换为十六进制数并返回十进制值，到目前为止，$hex 仅被用作 Perl 将首先使用的数字stringify $hex 然后将字符串传递给hex() 函数以将该值从十六进制转换为十进制。

所以解决方案。 printf() 几乎就在那里，有一个名为 sprintf() 的函数采用与 printf() 相同的参数，但不是打印格式化的值，而是将其作为字符串返回。所以你需要的是。

my $hex = 0xFA1F;
my $bin = sprintf("%b", $hex);
print $bin;

技术说明： 是的，我知道 Perl 在内部将其所有数字都存储为二进制，但我们不要去那里寻求这个答案，好吗？

Answer 4

如果您可以使用发行版，我写了Bit::Manip 以便在处理寄存器时使我的原型设计更容易一些（如果您在编译 XS 代码时遇到问题，还可以使用Pure Perl 版本）。

它不仅可以从数字中提取位，还可以切换、清除、设置等：

use warnings;
use strict;

use Bit::Manip qw(:all);

my $register = 0xFA1F;

# fetch the bits from register using msb, lsb

my $msbyte = bit_get($register, 15, 8);

print "value: $msbyte\n";

print "bin: " . bit_bin($msbyte) . "\n";

# or simply:
# printf "bin: %b\n", $msbyte;

输出：

value: 250
bin: 11111010

这是我写的blog post，它展示了如何通过示例数据表寄存器使用该软件的某些功能。