按创建日期列出目录

Question

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

我可以根据日期制作目录列表，然后拿走最后一个？如果是这样，我怎么能做到这一点，我看到了一些关于按日期排序文件的问题，但从来没有目录。

很多感谢

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