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

作者: CTO啊哦
发布时间: 2024-08-20 07:02:31 (26天前)
转自：

3 条回复

0#
回复此人
独奏♪ | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 您正在使用十六进制格式分配整数值。 <code> print </code> 默认情况下以十进制格式打印数字，因此您将获得64031。 </p> <P> 您可以使用printf（）通过提供不同的格式来验证这一点。 </p> <pre> <code> $ 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 $ </code> </pre> <P> 要在字符串中获取0xFA1F的二进制格式，可以使用sprintf（） </p> <pre> <code> $ perl -e ' my $hex = 0xFA1F; my $bin=sprintf("%b",$hex) ; print "$bin\n" ' 1111101000011111 $ </code> </pre> </DIV>

编辑
1#
回复此人
star | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 如果您对使用发行版感到满意，我写道 <a href="https://metacpan.org/pod/Bit::Manip" rel="nofollow noreferrer"> 位:: MANIP </A> 在处理寄存器时使我的原型设计更容易一些（还有一个 <a href="https://metacpan.org/pod/Bit::Manip::PP" rel="nofollow noreferrer"> 纯Perl </A> 如果您在编译XS代码时遇到问题，则可以使用该版本）。 </p> <P> 它不仅可以从数字中取出位，还可以切换，清除，设置等： </p> <pre> <code> 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; </code> </pre> <P> 输出： </p> <pre> <code> value: 250 bin: 11111010 </code> </pre> <P> 这是一个 <a href="http://blogs.perl.org/users/steve_bertrand/2017/01/bit-string-manipulation-made-easy-with-bitmanip.html" rel="nofollow noreferrer"> 博客文章 </A> 我写的那篇文章展示了如何使用一些软件的功能和示例数据表寄存器。 </p> </DIV>

编辑

登录后才能参与评论