如何十六进制转换为十六进制

Question

的字符串我有一个问题的理解和使用“VEC”关键字。

我读其中的值存储在小端十六进制logpacket。在我的代码中，我必须使用unpack关键字将不同的字节解包为标量。

这里是我的问题的一个例子：

my @hexData1 = qw(50 65); 
my $data = pack ('C*', @hexData1); 
my $x = unpack("H4",$data); # At which point the hexadecimal number became a number 
print $x."\n"; 
#my $foo = sprintf("%x", $foo); 

print "$_-> " . vec("\x65\x50", $_, 1) . ", " for (0..15); # This works. 
print "\n"; 

但我想用上面的语句通过以下方式联系。我不想用引号发送十六进制字符串。我想使用十六进制$ x的标量数组。但它不会工作。如何将我的$ x转换为十六进制字符串。这是我的要求。

print "$_-> " . vec($x, $_, 1).", " for (0..15); # This doesn't work. 
print "\n"; 

我最终的目标是读取两个字节十六进制数的右边第三位。

如何使用的“VEC”命令？

Answer 1

在使用它之前的数据为$x要制作unpack荷兰国际集团$错误致电vec。 vec需要一个字符串，所以如果你提供一个数字，在使用之前它会被转换成一个字符串。这里是你的代码

my @hexData1 = qw(50 65); 
my $data= pack ('C*', @hexData1); 

的Cpack格式源列表中的字符代码使用的每个值。这与每个值调用chr并将它们连接起来相同。不幸的是，你的值看起来像十进制，所以你得到chr(50).chr(65)或"2A"。因为你的价值观是little-endian的，你要的是chr(0x65).chr(0x50)或"\x65\x50"，所以你必须写

my $data= pack ('(H2)*', reverse @hexData1); 

其中反转数据（考虑到它是小端）的名单和包装它，仿佛它是一个两位十六进制字符串列表（幸运的是）。

现在你已经做得够多了。正如我所说，vec需要一个字符串，所以你可以写

print join ' ', map vec($data, $_, 1), 0 .. 15; 
print "\n"; 

，它会告诉你你所期望的位。要提取从右侧的第3位（假设你的意思是13位，其中最后一位是15位）你想

print vec $data, 13, 1; 

Answer 2

首先，得到代表的字节数。

如果你开始 “\ X50 \ X65”，

my $num = unpack('v', "\x50\x65"); 

如果你开始与 “5065”，

my $num = unpack('v', pack('H*', "5065")); 

如果你开始用 “​​50”， “65”，

my $num = unpack('v', pack('H*', join('', "50","65")); 

---

然后，提取所需的位。

如果你想第10位，

my $bit = ($num >> 10) & 1; 

如果你想第2位，

my $bit = ($num >> 2) & 1; 

---

（我列出了几种可能性，因为它不是我清楚你想要什么。）