如何递归删除.svn目录

时间：2010-08-12 来源：buxoman

从网上找到一个脚本，暂存下来学习学习：

http://snipplr.com/view/27050/recursively-remove-svn-folders/

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(".");