Perl时间单位字符串列表排序异常，求排查解决

嘿，我来帮你搞定这个时间字符串排序的问题！你遇到的情况大概率是转换函数或者排序逻辑出了小问题，咱们一步步来排查和解决。

先分析可能的错误点 #

你说已经写了转换子程序但排序不对，常见的坑有这几个：

• 转换函数的正则匹配不全：比如没处理带小数的时间（像2.5ms），或者单位匹配写错了
• 排序用了默认的字符串比较：Perl默认sort是按字符顺序排，比如10s会排在1us前面，这显然不是你要的数值排序
• 单位换算表（%scales）有遗漏或错误：比如某个单位的换算值写错，或者漏了输入里的单位

给你一套正确的实现方案 #

第一步：写一个靠谱的时间转换函数 #

这个函数要能正确提取数字（支持整数和小数）和单位，然后转换成秒数：

sub to_seconds {
    my $time_str = shift;
    # 匹配数字（整数/小数）+ 合法单位
    if ($time_str =~ /^([\d.]+)(fs|ps|ns|us|ms|s)$/) {
        my ($num, $unit) = ($1, $2);
        # 完整的时间单位换算表
        my %scales = (
            'fs' => 1e-15,  # 飞秒
            'ps' => 1e-12,  # 皮秒
            'ns' => 1e-9,   # 纳秒
            'us' => 1e-6,   # 微秒
            'ms' => 1e-3,   # 毫秒
            's'  => 1       # 秒
        );
        return $num * $scales{$unit};
    } else {
        die "Invalid time format: '$time_str' - 请输入类似'1us'、'100ps'的格式";
    }
}

第二步：用正确的方式排序 #

这里推荐用Schwartzian变换，它会先把每个元素转换成秒数存起来，再排序，避免重复转换（效率更高，尤其是列表大的时候）：

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

# 上面的to_seconds函数放在这里

my @time_list = ('1us', '100ps', '10s', '7fs', '2.5ms', '5ns');
# Schwartzian变换三步法：映射（存原字符串+转换后数值）→ 排序 → 提取原字符串
my @sorted_times = map { $_->[0] }
                   sort { $a->[1] <=> $b->[1] }  # 注意用<=>做数值比较，不是cmp
                   map { [ $_, to_seconds($_) ] } @time_list;

# 输出结果
print "升序排序后的时间：", join(', ', @sorted_times), "\n";

运行结果 #

这段代码会输出：

升序排序后的时间：7fs, 100ps, 5ns, 1us, 2.5ms, 10s

完全符合咱们要的时间从小到大的顺序。

再给你提几个注意事项 #

• 如果你需要支持更多单位（比如分钟、小时），直接在%scales里加对应的换算值就行
• 要是输入里可能有μs（希腊字母微）而不是us，可以把正则改成(fs|ps|ns|us|μs|ms|s)，并在%scales里加'μs' => 1e-6
• 一定要用<=>做数值比较，用cmp的话还是会按字符串排序，那肯定不对

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