Advanced Search

Posted By

FazzyX on 04/08/11

Tagged

Versions (?)

Last Edited at 04/08/11 10:22pm

Statistics

Viewed 819 times
Favorited by 0 user(s)

SearchAndDestroy

/ Published in: Perl
Save to your folder(s)
Recursive delete of given file or folder, e.g. .svn folder
Call : [Program] [SearchPath] [DeleteItem]

Expand | Embed | Plain Text

Copy this code and paste it in your HTML 
  1. #!/usr/bin/perl
  2. use strict;
  3.  
  4. use File::Find;
  5. use File::Path;
  6. use Digest::MD5 qw{md5_hex};
  7.  
  8. if(!($ARGV[0] && $ARGV[1])){
  9. 	print "Keine oder nicht genuegend Parameter mitgegeben, Programm wird beendet.\n";
  10. 	print "Aufruf : <Program> <SearchPath> <DeleteItem>...\n";
  11. 	exit;
  12. }
  13.  
  14. (my $startToSearchDir, my $deleteItem) = @ARGV;
  15.  
  16. find(\&wanted, $startToSearchDir);
  17.  
  18. sub wanted {
  19. 	if($_ eq $deleteItem){
  20. 		if(-d $File::Find::name) {
  21. 		    print "Deleting : " . $deleteItem . "\n";
  22. 			rmtree($deleteItem);
  23. 		} else {
  24. 			print "Deleting : " . $deleteItem . "\n";
  25. 			unlink($deleteItem);
  26. 		}
  27. 	} 
  28. }

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.