weidagang2046的专栏

物格而后知致
随笔 - 8, 文章 - 409, 评论 - 101, 引用 - 0
数据加载中……

删除某目录下最后修改日期大于X天的文件

use  strict;
 use  warnings;

 @ARGV   >   0   ||   die   " Usage: perl file_checker.pl [dir]\n " ;

 opendir (DIR ,   $ARGV [ 0 ])  ||   die   " Can't open directory: $!\n " ;

 my   @file_list   =   readdir (DIR);

 foreach   my   $file  ( @file_list )
{
     $file   =   " $ARGV[0]/$file " ;
     if ( - f  $file )
    {
         if ( - M  $file   >   100 )
        {
             print   $file ,   " \n " ;
             unlink   $file ;
        }
    }
}

 closedir (DIR);

posted on 2006-05-01 00:47 weidagang2046 阅读(561) 评论(0)  编辑  收藏 所属分类: Perl


只有注册用户登录后才能发表评论。
网站导航: