如何十六進制轉換爲十六進制

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; 

---

（我列出了幾種可能性，因爲它不是我清楚你想要什麼。）