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

Question

一个 Perl 脚本会是什么样的，它会占用一个目录，然后递归地删除该目录中的所有 .svn 目录？

(无 shell ，跨平台)

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;
}