用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
一年之计在于春
广州的春天,绵雨不断,最近几天都难得见到阳光,阴沉沉的,但也不缺乏生机。作为社会工作者己快有三年了,而上个星期我又一次以学生身份走入学校。曾几何时己忘记学历这一回事,也没打算再为学历而去读书,很反感一些公司在招聘时对学历的硬性要求,我一直认为学历不代表能力,学历只是一种经历,而证明自己能力的当然不只是学历了。但经过多方面的考虑,自己还是决定通过成人高考去读专升本。不想为了一张纸而去花费金钱和时间了,希望能通过系统的学习使自己变得更充实。2007年,我一定要全力以赴!写于2007年春天[@more@]