смог PERL пакет для работы в этом случае

Question

я побежал следующий код

$a=pack("H1H3", "1","abc"); 
$b=unpack("B*", $a); 
print "Got $b \n"; 

C:\Users\a0875499\Documents>perl abc.pl 
Got 000100001010101111000000 

выход выглядит неправильно для меня. Существует дополнительный «0000», который не должен присутствовать. Я ищу вывод для «0001101010111100». Вы знаете, что мне не хватает?

Answer 1

Формат 'H' для pack() собирает байты, поэтому, если вы задаете нечетное число значений, он вычитает последний байт с нулевым nybble.

Если я правильно понимаю, что вы хотите достичь, вы можете сделать это с:

$a = pack("H4", "1abc"); 

или

$a = pack("H*", "1abc");