递归删除.svn文件夹

Posted

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了递归删除.svn文件夹相关的知识，希望对你有一定的参考价值。

Can be used on any machine with PERL installed. Just execute this script in the directory and it will remove .svn folders recursively
  1. #!/usr/bin/perl
  2.  
  3. sub cleanup {
  4.         my $dir = shift;
  5. 	local *DIR;
  6.  
  7. 	opendir DIR, $dir or return false;
  8. 	for (readdir DIR) {
  9. 	        next if /^.{1,2}$/;
  10. 	        my $path = "$dir/$_";
  11. 		unlink $path if -f $path;
  12. 		cleanup($path) if -d $path;
  13. 	}
  14. 	closedir DIR;
  15. 	rmdir $dir;
  16. 	return true;
  17. }
  18.  
  19.  
  20. sub cleansvn {
  21. 	my $dir = shift;
  22.  
  23. 	cleanup ("$dir/.svn");
  24.  
  25. 	local *DIR;
  26.  
  27. 	opendir DIR, $dir or die "opendir $dir: $!";
  28. 	for (readdir DIR) {
  29. 	        next if /^.{1,2}$/;
  30. 	        my $path = "$dir/$_";
  31. 		cleansvn($path) if -d $path;
  32. 	}
  33. 	closedir DIR;
  34. }
  35.  
  36.  
  37. cleansvn(".");

以上是关于递归删除.svn文件夹的主要内容，如果未能解决你的问题，请参考以下文章