rmtree perl：递归查找和删除svn目录

Question

我尝试通过以下方式递归删除svn目录：

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

但是我想使用perl模块rmtree（在File :: Path中获得）来做同样的事情。请指导我怎么做？

Answer 1

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

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

你的版本没有修剪，但应该有。