如何在Perl中将包含十六进制的字符串转换为十六进制？

Question

For example, I have a string "\\x80\\x81\\x82.abc\\x00" , then it should be converted to hex 8081822e61626300 . May I ask how to do it in Perl?

Answer 1

Do you have string "\\x80\\x81\\x82.abc\\x00" or '\\x80\\x81\\x82.abc\\x00' ?

Option 1:

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

Option 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*' is likely the best solution:

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