perl 清理垃圾文件

 我每天都从服务器上去取最新代码，但是很恶心的是每次他都生成一个备份垃圾文件，看上去很不爽，老显示在我的project里面，看的我眼花缭乱。

所以写个perl脚本来清理这些文件，这些垃圾文件都是有规则的，所以可以有个正则表达式。这样我就可以根据这个正则表达式去去过滤删除垃圾文件。

 

#! /usr/bin/perl -w print "I want to delete all the waste file whose name contains the regular expression","/n"; if (@ARGV < 2){ print "Usage: perl clean.pl dirpath regx"; exit -1; } my $dir = shift @ARGV; my $regx = shift @ARGV; sub delete(){ my $file = shift @_; my $regxStr = shift @_; # First check if it is a file. if (-f $file){ #if it is file, then check if it should be deleted. if ($file =~ /$regxStr/){ print "delete: $file/n"; unlink $file, "/n"; } } else { #then process the directory. opendir DIR, $file or die "can't visit the director, $!/n"; foreach my $dir (readdir DIR){ next if $dir =~ /^/.$/; #skip . directory next if $dir =~ /^/./.$/; #skip .. directory &delete("$file/$dir", $regxStr); #recursive } } } print "target dir: ".$dir,"/n"; print "target regx str: ".$regx, "/n"; print "start to clean the file..../n"; &delete($dir,$regx); print "clean completely./n";