使用Perl将数字十六进制格式的UCS2(未知LE或BE)转换为UTF-8

cpan install Encode

#!/usr/bin/perl
use strict;
use warnings;
use Encode;

# 读取命令行参数
my $hex_str = $ARGV[0];

# 将十六进制字符串转换为字节数组
my @bytes = map { hex($_) } $hex_str =~ /(..)/g;

# 判断字节序
my $is_le = ($bytes[0] == 0xFFFE) ? 1 : 0;

# 将UCS2字节数组转换为字符串
my $ucs2_str = '';
for (my $i = $is_le ? 1 : 0; $i < $#bytes; $i += 2) {
    my $ch = ($bytes[$i] << 8) | $bytes[$i+1];
    $ucs2_str .= chr($ch);
}

# 将UCS2字符串转换为UTF-8字符串
my $utf8_str = encode('UTF-8', $ucs2_str);

# 输出UTF-8字符串
print $utf8_str;

perl hex_to_utf8.pl "0054 0068 0069 0073 0020 03A9 006B 0067"

This Ωkg