如何使用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; 
}