Question

怎样用perl将一个记录文件路径的数组遍历，找出每个文件的最后修改时间，并且最终存放在一起

for(my $i=0;$i<@filelist;$i++){
my @array= stat("$filelist[$i]");
print scalar localtime($array[9]);
@array=$i+1;
}
如上，我已经可以获取到文件的最后修改时间了，如何存放到一个数组，并且最终生成一个文件格式如下：目录\文件名:最后修改时间

Answer 1

my @array;

foreach (@filelist)
{
my $mtime = localtime(stat($_))
push(@array,"$_:$mtime");
}