如何在Perl中对时间戳进行排序？

Question

我有几千个具有字符串属性的对象，格式为"yyyy-MM-ddTHH:mm:ssZ" 。 我想按时间对这些对象进行排序。

这有什么有用的包或脚本吗？

（目前我只是比较单个数字值，它似乎不是非常有效和整洁。）

Answer 1

sort没有排序功能排序的字典顺序。 它满足您的需求。

@sorted = sort @timestamps;

Answer 2

该格式的时间戳可以按字典顺序排序，因此正常的perl“sort”和字符串比较函数“cmp”就足够了。

Answer 3

您可以使用Time :: Local将日期转换为时间戳或cpan中的Date :: modules之一。 您可以查看此内容以查看可用内容。

还要注意，使用上面的格式排序对象lexicographicaly也可以做到这一点（即使可能比比较数字慢一些，但初始转换有它的成本）。

如果您使用来自世界各地的日期，请小心，因为您可能会遇到时区和夏令时的排序问题。 如果所有日期时间都在同一个地方应该没问题。

Answer 4

如果您的字符串格式是严格的，您可以使用以下子例程来整理日期列表。

sub timeSort {

    my ($time) = ( shift =~ /\d{2}:\d{2}:\d{2}/ );
    return $time;
}

my @sortedList = sort { timeSort($a) <=> timeSort($b) } @oldList;