按创建日期创建目录列表

Question

我有一个目录列表，每个目录中都有1个文件，我需要访问带有最新日期的文件。

我可以按日期列出目录列表然后选择最后一个目录吗？如果是这样，我怎么能这样做，我已经看到了一些关于按日期排序文件的问题，但从来没有看过目录。

非常感谢提前

Answer 1

您拥有包含单个文件的目录列表这一事实是无关紧要的。

最终，您只有一个包含路径的文件列表（或者您将构建一个路径），然后您可以reduce列出最近修改日期的文件（-M ）：

use strict;
use warnings;

use List::Util qw(reduce);

my @files = qw(
    foo/file.txt
    bar/file.txt
    baz/file.txt
);

my $youngest = reduce {-M $a < -M $b ? $a : $b} @files;

print $youngest, "\n";