如何使用Perl递归删除所有.svn目录？

Question

Perl脚本会是什么样子，需要一个目录，然后递归删除该目录中的所有.svn目录？

（无壳，跨平台）

Answer 1

可以（并且可能应该）首先使用svn export。

否则，使用File::Find和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; 
}