Mega Code Archive

 

Categories / Perl / System Functions

 

Pack to hex string and unpack

$str="0x123456789ABCDE Tom..."; print "$str\n"; $bytes=unpack("H*",$str); # hex string  print "$bytes\n"; $str2 = pack("H*", $bytes); print "$str2\n"; $bytes = unpack("h*",$str); # hex string print "$bytes\n"; $str1 = pack("h*", $bytes); print"$str1\n";