perl 可以直接获取某个目录下最新的文件吗 请教

df4747

perl中有办法 直捷获取某个目录下 最新的文件吗？  然后得到文件名字，谢谢

DQP

`ls -t | head -n 1`

machine

foreach my $filename (glob "*"){
push @new_files, $filename if  –M $filename < 10;
}
当前目录下，十天内修改的文件

youyuanyin

原帖由 machine 于 2008-11-25 11:09 发表
foreach my $filename (glob "*"){
push @new_files, $filename if  –M $filename < 10;
}
当前目录下，十天内修改的文件

做个比较，选个最大值就好了！