perl - rmtree：svnディレクトリを再帰的に検索して削除します

Question

.svn次の方法でディレクトリを再帰的に削除してみました：

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

rmtreeしかし、私はPerl関数（から）を使用して同じことをしたいと思いますFile::Path。どのようにそれを行うことができますか？

Answer 1

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

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

お使いのバージョンはプルーニングしませんでしたが、プルーニングする必要があります。