在perl中将双字节十六进制字符串转换为char

Question

我有一串双字节十六进制字符，我想将它们转换为ascii或unicode字符串。该字符串可以具有可变长度。输入：

$hex_string="003400300030"

期望的输出：

$char_string="400"

Answer 1

use Encode qw( decode );

my $char_string = decode('UTF-16be', pack('H*', $hex_string));