接手以前別人做的項目，發現SVN裡的ignore裡並沒有對*.db處理，導致圖片的緩衝縮減檔案都被提交了，而我只要開啟圖片檔案夾，就意味著Thumbs.db發生了改變。
要做的事情有兩個：
一、更改svn的設定，以後不再提交Thumbs.db檔案
二、大量刪除指定目錄下的Thumbs.db檔案
所以用perl寫了一個，代碼是在之前的 perl遍曆目錄 做了一些修改，主要有兩點自己注意了：
一、檔案路徑，Windows下預設為“\ ”而linux下則是”/”， 所以統一改為”/”
二、比較兩個字串相等需要使用eq 而不是 == (==返回數值相等，而eq返回的是字串相等)
三、unlink刪除檔案，需要指定檔案的完整路徑
四、perl中的else if 寫法為elsif 沒有那個“e”
五、perl正則匹配方式為 =~ 或 !~
完整的代碼如下，需要更改規則可以修改代碼中的這一段：
複製代碼 代碼如下:
#!/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 = "刪除檔案的總數：".$count;
print $str;
控制台上輸出的結果：
