按创建日期创建目录列表

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";