Question

I tried deleting the .svn directory recursively through :

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

But, I want to do the same using Perl function rmtree (from File::Path). How can it be done?

Answer 1

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

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

Your version didn’t prune, but it should have.