Perl&Shell for DBA
-
编辑 删除
用PERL实现windows系统下删除指定目录下指定修改日期的文件
PUB上有人问查找某个目录下时间超过3天的文件然后删除的dos命令怎么写,这个在UNIX或LINUX下用一条命令就可以解决了：find /TEMP -mtime +3-exec rm {} ; 但在WINDOWS环境下用命令恐怕是很难实现的了，但用PERL很容易就能做到,但需先安装Active Perl.新建一个文本文件改名为rm.pl代码如下：[@more@]#!c:perlbin -w#window系统下删除指定目录下指定修改日期的文件.use strict;use FileHandle;my @filenames;my $filename;my ($day,$dictionary) = @ARGV;opendir (DIR,$dictionary)|| die "can not open it:$!";@filenames=readdir
