How can I recursively delete all .svn directories using Perl?

Question

What would a Perl script look like to take a directory and then delete all .svn directories in that directory recursively?

(Without shell, cross platform)

Answer 1

You can (and probably should) use svn export in the first place.

Otherwise, use File :: Find and File :: Path :: rmtree :

 #!/usr/bin/perl use strict; use warnings; use File::Find; use File::Path qw( rmtree ); use File::Spec::Functions qw( catfile ); find(\&rm_dot_svn, $_) for @ARGV; sub rm_dot_svn { return unless -d $File::Find::name; return if /^\.svn\z/; rmtree(catfile $File::Find::name, '.svn'); return; }