rmtree的Perl：查找並刪除SVN目錄recurvisely

Question

我試圖通過刪除SVN目錄遞歸：

system("rm -rf `find . -type d -name .svn"); 

但我希望做同樣的使用Perl模塊，rmtree（在文件::路徑獲得）。請指導我怎麼做？

Answer 1

use File::Find::Rule qw(); 
use File::Path  qw(rmtree); 

rmtree([ 
    File::Find::Rule 
    ->directory 
     ->name('.svn') 
     ->prune 
     ->in('.') 
]); 

您的版本沒有修剪，但它應該有。