天天看點

perl删除Windows下的圖檔緩存縮略圖(Thumbs.db)

     接手以前别人做的項目,發現SVN裡的ignore裡并沒有對*.db處理,導緻圖檔的緩存縮略檔案都被送出了,而我隻要打開圖檔檔案夾,就意味着Thumbs.db發生了改變。

要做的事情有兩個:

一、更改svn的設定,以後不再送出Thumbs.db檔案

二、批量删除指定目錄下的Thumbs.db檔案

一、檔案路徑,Windows下預設為“\  ”而linux下則是”/”, 是以統一改為”/”

二、比較兩個字元串相等需要使用eq 而不是 == (==傳回數值相等,而eq傳回的是字元串相等)

三、unlink删除檔案,需要指定檔案的完整路徑

四、perl中的else if 寫法為elsif 沒有那個“e”

五、perl正則比對方式為 =~ 或 !~

完整的代碼如下,需要更改規則可以修改代碼中的這一段

perl删除Windows下的圖檔緩存縮略圖(Thumbs.db)

控制台上輸出的結果:

perl删除Windows下的圖檔緩存縮略圖(Thumbs.db)