string - Perlで16進数を含む文字列を16進数に変換するには?

Question

たとえば、 string がある場合は"\x80\x81\x82.abc\x00"、 hex に変換する必要があります8081822e61626300。Perlでのやり方を聞いてもいいですか?

Answer 1

文字列"\x80\x81\x82.abc\x00" または '\x80\x81\x82.abc\x00'

オプション1：

my $text = "\x80\x81\x82.abc\x00";
$text = unpack "H*", $text;
print $text;

オプション 2:

my $text = '\x80\x81\x82.abc\x00';
$text =~ s/\\x([a-zA-Z\d]{2})/{chr hex $1}/ge;
$text = unpack "H*", $text;
print $text;

Answer 2

unpack 'H*'おそらく最良の解決策です：

$ perlsh
eval: unpack "H*", "\x80\x81\x82.abc\x00"
'8081822e61626300'