高分, 请把pack "H*", 'ABCD';的值print出来

[2002pine]

$ascii_key = pack "H*", 'ABCD';

print "this is $ascii_key\n";

我只想看看 这个字节数组是什么值 比如01 AA 一类的，
但是用print却看不出来

请问怎么办

[2002pine]

不懂，请把那个字节打印出来，谢谢

[bugs2k]

#!/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);

[bugs2k]

[2002pine]

顶顶顶顶顶顶

[乔巴好萌]

"H" hex(ord("H")) "ABCD" ':'.join(hex(ord(x)) for x in 'ABCD')

[惟愿莲心不染尘]

python多方便 import binascii binascii.b2a_hex(str)