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

Question

例如，我有一个字符串"\x80\x81\x82.abc\x00"，那么它应该转换为十六进制8081822e61626300。我可以问一下在Perl中如何做到这一点？

Answer 1

unpack 'H*'可能是最好的解决办法：

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

Answer 2

你有串"\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;