关于获取某文件的创建日期

opendir(DIRMAIL, "D:/Mail") or die "$!";
my @allfiles = grep { not /^\.{1,2}\z/ } readdir DIRMAIL;
closedir DIRMAIL;
foreach my $allfiles(@allfiles){
my $short_time=-A 'd:/Mail/'.$allfiles;
print "$short_time\n";
}

通过上面的程序获取D:/Mail中文件的创建日期，怎么输出的是：
0.592037037037037
1.59203703703704
什么格式啊？看不明白啊！

-A得到的以day为单位，而且不是创建日期。看文档呀……
perldoc -f -X

如何获取d:/Mail中最＂年轻＂的文件呢？即，从文件创建至今，存在时间最段的文件？谢谢了！

创建时间没有地方保存吧。
我猜你说的创建时间是不是指最后一次修改时间？ 或者是inode的更改时间？
你可以用stat取得每个文件的那个时间然后排序，或者直接用ls排序输出后取第一个/最后一个文件名。

老大,不会吧,呵呵!

如何获取d:/Mail中最＂年轻＂的文件呢？即，从文件创建至今，存在时间最段的文件？
opendir(DIRMAIL, "D:/Mail") or die "$!";
my @allfiles = grep { not /^\.{1,2}\z/ } readdir DIRMAIL;
closedir DIRMAIL;
foreach my $allfiles(@allfiles){
my $short_time=-M 'd:/Mail/'.$allfiles;
print "$short_time\n";
}

写到这里小弟实在写不出来了,郁闷!
哪个兄弟能帮写下.谢谢了!

呵呵,我糊涂啊~~~静下来想了想,明白了.
是的,连天数都出来了,按数字排序,然后取最小的不就好了,昏倒.
谢谢大家啦

如果你在WIN上,

@filenames = `dir /t/b`;