如何在Perl中对ASCII十六进制字符串数组进行数值排序？

你的问题核心在于Perl默认的sort是按字符串ASCII值排序，若元素存在隐藏空白字符（比如Windows换行符\r），或需要严格按数字部分排序，就需要自定义排序逻辑。

正确实现代码 #

my $strings = "3A
1B
2A
5A
4B";

# 拆分数组，同时去除可能的空白字符（包括\r、\n）
my @split_array = split(/\s+/, $strings);

# 按元素中的数字部分进行数值升序排序
my @sorted_array = sort {
    # 提取每个元素中的数字部分
    my ($num_a) = $a =~ /(\d+)/;
    my ($num_b) = $b =~ /(\d+)/;
    # 数值比较，确保按数字大小排序
    $num_a <=> $num_b
} @split_array;

# 打印排序后的数组，每个元素换行
print join("\n", @sorted_array), "\n";

输出结果 #

1B
2A
3A
4B
5A

关键说明 #

• split(/\s+/, $strings)：用任意空白字符拆分，避免元素携带\r这类隐藏字符干扰排序。
• 自定义排序块通过正则提取数字部分，用<=>做数值比较，确保排序逻辑是按数字大小，而非字符串ASCII值（避免后续出现10A排在2A前面的问题）。

内容的提问来源于stack exchange，提问作者x2ffer12