Perl 批量删除过期文件(0 位领导批示)

  • 2008-11-11
  • 分类：Perl
  • 作者：银子
  • 1,804 位领导视察

代码:

?View Code PERL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/perl
 
#---------------------------------------------------------
use strict;
my $dir = "dirname/";
opendir DH, $dir or die "cannot chdir to $dir : $!";
for my $file (readdir DH)
{
    ($file eq '.') and next;
    ($file eq '..') and next;
    if (time() - (stat($dir.$file))[9] > (60*60))
    {
        unlink $dir.$file;
    }
    print $dir.$file."\n";
}
closedir DH;

然后创建一个计划任务进行处理.

这个代码中会将一小时前创建的文件删除.

时间可以进行修改 (60*60) 单位:秒

NOTE：本博内容大部分为原创，转载请注明出处。
永久链接：http://www.zdyi.com/perl_batch_unlink_files/151

分享到新浪微博 推荐到豆瓣 分享到 Google Reader 加入Google书签 嘀咕一下 分享到饭否 分享到做啥 分享到叽歪 分享到鲜果 加入QQ书签 加入百度搜藏 加入雅虎书签 分享到垦一垦

移驾其它地方视察

银子曰：还没有领导题词?

请领导指示

验证码 (必须)

Additional comments powered by BackType

随机显示的10篇日志

评论最多的10篇日志

浏览最多的10篇日志