如何在Perl中对数组哈希内的日期时间字符串进行排序？

嘿，首先得说你的尝试方向是对的，但直接用字符串cmp来排序这种DD/M/YY HH:MM格式的日期时间，其实是不可靠的——它只是在你当前的测试数据上碰巧得到了正确结果，换一组数据可能就会出错。

为什么当前实现有问题？ #

字符串比较是按字符顺序逐位对比的，完全不理解日期的逻辑：

• 比如遇到'05/12/23'（5月12日）和'10/1/23'（10月1日），字符串比较会认为'05/12/23'更小，但实际10月1日比5月12日晚，排序结果就反了。
• 再比如两位年份的场景：'31/12/99'（1999年）和'01/1/00'（2000年），字符串比较会把'31/12/99'排在后面，这就完全错了。

所以这个实现只能算“巧合正确”，不是通用方案。

更优方案1：转成时间戳排序（最推荐） #

Perl 5.10及以上自带的Time::Piece模块可以轻松解析日期字符串，转成Unix时间戳（数字类型），用<=>比较数字就完全符合日期的先后逻辑，绝对靠谱。

修改后的代码示例：

use strict;
use warnings;
use Time::Piece; # 核心模块，无需额外安装

my %hashofarrays;
$hashofarrays{'joe tribiani'} = ['16/3/28 13:42','XII','99.93%'];
$hashofarrays{'Ross'} = ['16/3/28 13:43','XII','76.93%'];
$hashofarrays{'sue grace'} = ['11/7/5 12:07','VI','77.58%'];

# 匹配你的日期格式：DD/M/YY HH:MM（支持1位/2位的日、月）
my $date_pattern = '%d/%m/%y %H:%M';

foreach my $key ( 
    sort {
        # 解析日期为Time::Piece对象，取时间戳后比较
        Time::Piece->strptime($hashofarrays{$a}[0], $date_pattern)->epoch 
        <=> 
        Time::Piece->strptime($hashofarrays{$b}[0], $date_pattern)->epoch
    } keys %hashofarrays 
) {
    print "$key: ", join(', ', @{$hashofarrays{$key}}), "\n";
}

这个方案的好处： #

• 完全遵循日期时间的实际先后顺序，不管日期格式的字符长度如何都不会出错
• Time::Piece是Perl核心模块，不用额外安装CPAN包
• 可以灵活处理年份：如果你的两位年份是19xx而不是20xx，加一行调整就行：

  my $tp = Time::Piece->strptime($date_str, $date_pattern);
  $tp = $tp->add_years(-100) if $tp->year > 2050; # 假设2050年后的年份是19xx
  

更优方案2：转成ISO标准日期字符串排序 #

如果你偏好可读性强的字符串比较，可以把日期转成YYYY-MM-DD HH:MM的ISO格式，这种格式的字符串天生可以用cmp正确排序（因为年、月、日的顺序从大到小，字符顺序和时间顺序一致）。

示例代码：

use strict;
use warnings;
use Time::Piece;

my %hashofarrays;
$hashofarrays{'joe tribiani'} = ['16/3/28 13:42','XII','99.93%'];
$hashofarrays{'Ross'} = ['16/3/28 13:43','XII','76.93%'];
$hashofarrays{'sue grace'} = ['11/7/5 12:07','VI','77.58%'];

my $date_pattern = '%d/%m/%y %H:%M';

foreach my $key ( 
    sort {
        # 转成ISO格式字符串后比较
        Time::Piece->strptime($hashofarrays{$a}[0], $date_pattern)->strftime('%Y-%m-%d %H:%M')
        cmp
        Time::Piece->strptime($hashofarrays{$b}[0], $date_pattern)->strftime('%Y-%m-%d %H:%M')
    } keys %hashofarrays 
) {
    print "$key: ", join(', ', @{$hashofarrays{$key}}), "\n";
}

这个方案的优点是ISO格式可读性强，排序也准确，只是性能略低于时间戳比较（一般场景下差异可以忽略）。

额外优化：预计算排序键提升性能 #

如果你的哈希里有几百上千个元素，每次排序都重复解析日期会浪费性能。可以预先把每个键对应的排序键（时间戳或ISO字符串）计算好，再排序：

use strict;
use warnings;
use Time::Piece;

my %hashofarrays;
$hashofarrays{'joe tribiani'} = ['16/3/28 13:42','XII','99.93%'];
$hashofarrays{'Ross'} = ['16/3/28 13:43','XII','76.93%'];
$hashofarrays{'sue grace'} = ['11/7/5 12:07','VI','77.58%'];

my $date_pattern = '%d/%m/%y %H:%M';
# 预计算每个键的时间戳，只解析一次
my %sort_keys;
foreach my $key (keys %hashofarrays) {
    $sort_keys{$key} = Time::Piece->strptime($hashofarrays{$key}[0], $date_pattern)->epoch;
}

# 用预计算好的排序键排序
foreach my $key (sort { $sort_keys{$a} <=> $sort_keys{$b} } keys %hashofarrays) {
    print "$key: ", join(', ', @{$hashofarrays{$key}}), "\n";
}

这样每个日期只解析一次，数据量大的时候性能提升会很明显。

总结一下：你当前的实现仅在特定测试数据下有效，不通用也不可靠。推荐使用Time::Piece将日期转换为时间戳或ISO格式后再排序，这两种方案都是通用且准确的，预计算排序键则适合大数据量的场景。

内容的提问来源于stack exchange，提问作者D.Karthikeyan