在 perl 中将两字节的十六进制字符串转换为字符

Question

I have a string of two-byte hex characters and I'd like to convert them to an ascii or unicode string. The string can have a variable length. Input:

$hex_string="003400300030"

Desired output:

$char_string="400"

Answer 1

use Encode qw( decode );

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