如何在Perl中將包含十六進制的字符串轉換為十六進制？

Question

例如，我有一個字符串"\\x80\\x81\\x82.abc\\x00" ，則應將其轉換為十六進制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'