пакета в Perl

Question

моя программа Perl:

say 'hexa notation in perl script'; 
my$str = pack 'H*','987456123'; 
print unpack('H*',$str),"\n"; 
print unpack('h*',$str),"\n"; 

выход:

hexa notation in perl script 
1. 9874561230 #why it showing zero here 
2. 8947652103 

В моем 1 результате, почему он показывает zero.What является причиной этого? Ваш ответ будет оценен.

Answer 1

У вас есть нечетное число символов в 987456123 и H* упаковки требует даже, поэтому она принимает нуль для последней пары (98, 74, 56, 12 и 30 в конце).

От perldoc:

Начиная с начала шаблона для упаковки(), каждая пара символов преобразуется в 1 символ выхода. [...] Если длина входной строки не четная, она ведет себя так, как будто заполняется нулевым символом в конце. Аналогичным образом, «лишние» nybbles игнорируются во время распаковки.