Posted By

TEHEK on 01/25/10


Tagged

svn delete remove


Versions (?)

Recursively remove .svn folders


 / Published in: Perl
 

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

Report this snippet  

You need to login to post a comment.