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

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

perl中有办法 直捷获取某个目录下 最新的文件吗?  然后得到文件名字,谢谢
`ls -t | head -n 1`
foreach my $filename (glob "*"){
push @new_files, $filename if  –M $filename < 10;
}
当前目录下,十天内修改的文件


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

做个比较,选个最大值就好了!