标题: [问题求助] [已解决]Perl怎样删除指定日期之前的文件？ [打印本页]
作者: DAIC 时间: 2011-6-3 00:15 标题: [已解决]Perl怎样删除指定日期之前的文件？
本帖最后由 DAIC 于 2011-6-3 20:36 编辑
C:\testfolder\下面有很多日志文件，文件名无规则：
abc.log
1234.log
......
怎样只保留最后修改时间在10天之内的文件，删除其它文件？
作者: Demon 时间: 2011-6-3 09:33
在这里问 Perl 的问题你认为会有人知道？问问题要找对地方。- while (<C:/testfolder/*.log>) {
- unlink $_ if -M $_ > 10;
- }
作者: 523066680 时间: 2011-6-3 14:37
本帖最后由 523066680 于 2011-6-3 14:39 编辑
2楼不是有个知道的嘛 ， 顶好顶好
作者: DAIC 时间: 2011-6-3 20:53
2# Demon
测试可行，多谢指点。
| 欢迎光临 批处理之家 (http://bbs.bathome.net/) |
Powered by Discuz! 7.2 |