37,716
社区成员
发帖
与我相关
我的任务
分享
#!/usr/bin/perl
sub HexPrint {
($key) = @_;
@ds = split //, $key;
$res = '';
for $t (@ds) {
$res .= sprintf "%#02x ", ord($t);
}
return $res;
}
$key = pack "H*", "ABCD";
print "This is ", HexPrint($key);