Posted By

FazzyX on 04/08/11

Tagged

perl

Versions (?)

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

Statistics

Viewed 850 times

Favorited by 0 user(s)

SearchAndDestroy

/ Published in: Perl

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

#!/usr/bin/perl
use strict;
 
use File::Find;
use File::Path;
use Digest::MD5 qw{md5_hex};
 
if(!($ARGV[0] && $ARGV[1])){
	print "Keine oder nicht genuegend Parameter mitgegeben, Programm wird beendet.\n";
	print "Aufruf : <Program> <SearchPath> <DeleteItem>...\n";
	exit;
}
 
(my $startToSearchDir, my $deleteItem) = @ARGV;
 
find(\&wanted, $startToSearchDir);
 
sub wanted {
	if($_ eq $deleteItem){
		if(-d $File::Find::name) {
		    print "Deleting : " . $deleteItem . "\n";
			rmtree($deleteItem);
		} else {
			print "Deleting : " . $deleteItem . "\n";
			unlink($deleteItem);
		}
	} 
}

Report this snippet Tweet

Comments

Subscribe to comments

Comment:

You need to login to post a comment.