perl - 如何将十六进制8位分成两个4位

Question

我是这样用的

$a = "002c459f";
$b = $a%10000;
$c = int($a/10000); 
print $b;       #prints 0
print $c;       #prints 2

我要

$b=459f;

$c=002c;

谁能建议我如何得到这个？

Answer 1

如果你使用了warnings ，您会收到一条指示问题的警告消息。

由于您的 8 位输入已经格式化为简单的十六进制字符串，您可以只使用 substr :

use warnings;
use strict;

my $x = '002c459f';
my $y = substr $x, 0, 4;
my $z = substr $x, 4, 4;
print "z=$z, y=$y\n";

输出:

z=459f, y=002c

最好同时使用 strict .我更改了您的变量名，因为 a 和 b 是 Perl 中的特殊变量。