递归删除.svn文件夹

Posted 2021-02-26

Can be used on any machine with PERL installed. Just execute this script in the directory and it will remove .svn folders recursively

#!/usr/bin/perl
 
sub cleanup {
        my $dir = shift;
	local *DIR;
 
	opendir DIR, $dir or return false;
	for (readdir DIR) {
	        next if /^.{1,2}$/;
	        my $path = "$dir/$_";
		unlink $path if -f $path;
		cleanup($path) if -d $path;
	}
	closedir DIR;
	rmdir $dir;
	return true;
}
 
 
sub cleansvn {
	my $dir = shift;
 
	cleanup ("$dir/.svn");
 
	local *DIR;
 
	opendir DIR, $dir or die "opendir $dir: $!";
	for (readdir DIR) {
	        next if /^.{1,2}$/;
	        my $path = "$dir/$_";
		cleansvn($path) if -d $path;
	}
	closedir DIR;
}
 
 
cleansvn(".");