接手以前別人做的項目，發(fā)現(xiàn)SVN里的ignore里并沒有對*.db處理，導(dǎo)致圖片的緩存縮略文件都被提交了，而我只要打開圖片文件夾，就意味著Thumbs.db發(fā)生了改變。
要做的事情有兩個：
一、更改svn的設(shè)置，以后不再提交Thumbs.db文件
二、批量刪除指定目錄下的Thumbs.db文件
所以用perl寫了一個，代碼是在之前的 perl遍歷目錄 做了一些修改，主要有兩點自己注意了：
一、文件路徑，Windows下默認為“\&; ”而linux下則是”/”， 所以統(tǒng)一改為”/”
二、比較兩個字符串相等需要使用eq 而不是 == (==返回數(shù)值相等，而eq返回的是字符串相等)
三、unlink刪除文件，需要指定文件的完整路徑
四、perl中的else if 寫法為elsif 沒有那個“e”
五、perl正則匹配方式為 =~ 或 !~
完整的代碼如下，需要更改規(guī)則可以修改代碼中的這一段：
復(fù)制代碼 代碼如下:
#!/usr/bin/perl
use strict;
use warnings;
my $path = "C:/FlexApp/xx";
my $filecount = 0;
sub parse_env {
my $path = $_[0]; #或者使用 my($path) = @_; @_類似javascript中的arguments
my $subpath;
my $handle;
if (-d $path) {#當前路徑是否為一個目錄
if (opendir($handle, $path)) {
while ($subpath = readdir($handle)) {
if (!($subpath =~ m/^\.$/) and !($subpath =~ m/^(\.\.)$/)) {
my $p = $path."/$subpath";
if (-d $p) {
parse_env($p);
} elsif ($subpath eq "Thumbs.db") {
++$filecount;
print "The file path：".$p."------------The file name：$subpath\n";
unlink($p) or warn "failed on $subpath:$!";
}
}
}
closedir($handle);
}
}
return $filecount;
}
my $count = parse_env $path;
my $str = "刪除文件的總數(shù)：".$count;
print $str;
控制臺上輸出的結(jié)果：
