[已解决]Perl怎样删除指定日期之前的文件？

DAIC

C:\testfolder\下面有很多日志文件，文件名无规则：
abc.log
1234.log
......
怎样只保留最后修改时间在10天之内的文件，删除其它文件？

Demon

在这里问 Perl 的问题你认为会有人知道？问问题要找对地方。

1. 
   
2. while (<C:/testfolder/*.log>) {
   
3.     unlink $_ if -M $_ > 10;
   
4. }
   

复制代码

523066680

2楼不是有个知道的嘛   ， 顶好顶好

DAIC

2# Demon


测试可行，多谢指点。