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

2018-06-19 09:08:26

Perl脚本看起来会如何取得一个目录，然后以递归方式删除该目录中的所有.svn目录？

（没有外壳，跨平台）

您可以（也可能应该）首先使用svn导出。

否则，使用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 /^.svnz/;
    rmtree(catfile $File::Find::name, '.svn');
    return;
}

链接地址: http://www.djcxy.com/p/54577.html

上一篇: How can I recursively delete all .svn directories using Perl?

下一篇: How do manage your Perl application development, build, and deployment?