代码之家 › 专栏 › 技术社区 › Kamrul Khan

Perl:从十六进制中分离MSB和其余位

perl

Kamrul Khan · 技术社区 · 8 年前

我需要从十六进制字符串中分离MSB和其余位。例如:我有一个十六进制字符串 a2 1010 0010

$hex = 'a2';
$dec = hex($hex);
$bin = sprintf("%b", $dec);
$msb = substr $bin, 0, 1;
$rest = substr $bin 1, 7;

$restDec = oct("0b" . $rest);

然而,我不喜欢使用字符串进行位操作。有更好的方法吗?

1 回复 | 直到 8 年前

Jim Garrison 8 年前

使用位运算符非常简单:

$msb  = ($dec & 128) >> 7
$rest = ($dec & 127)

说明:

十进制128为 0x80 或 0b1000_0000

0x7F 0b0111_1111 按位“and ing”这个 $dec 将MSB设置为零,同时保留其余位。

附加说明:Perl具有十六进制数字文字( 0x... 和二进制文字( 0b...

$msb  = ($dec & 0x80) >> 7
$rest = ($dec & 0x7F)

甚至

$msb  = ($dec & 0b10000000) >> 7
$rest = ($dec & 0b01111111)

推荐文章

James Finnegan · DateTime对象只能与另一个DateTime对象进行比较

1 年前

con · Negative Lookaward在perl正则表达式中不起作用

1 年前

Carsten · 使用最近的搜索模式更改文本块

1 年前

Mario Palumbo · 是否有bash-perl快捷方式来计算每行中的匹配数?

1 年前

Rawley Fowler · 我可以在Perl中为警告生成堆栈跟踪吗?

1 年前

A.Ellett · 测试-t STDIN与-t<STDIN>

1 年前

nick · 向后交换文件名

1 年前

Sangyong Gwak · 如何更改Perl Kelp应用程序的app_url

1 年前

con · 如何跳转到foreach迭代的特定点?

1 年前

A.G.Progm.Enthusiast · 如何使用Perl中的拼接从数组中一次性删除随机元素?

1 年前