./myPerlScript.pl

You can then pipe to a file or whatever you want.

#!/usr/bin/perl
#
# filter $file1 $file2
#
# Filters all lines in file1 against lines in file2, copying only lines # from file 1 not found in file2 to STDOUT
#

# get arguments

my $file1 = shift;
my $file2 = shift;

if(!defined($file1) || !defined($file2))
{
print “nError, must have two arguments.n”;
print “filter n”;
exit 1;
}

# Copy all lines from file2 into a hash

open (EXCLUDE, $file2);

%exclude = ();

while ($line = )
{
chomp($line);
#NOTE – DOES A LOWERCASE INJECTION INTO HASH
$exclude{lc($line)} = $line;
}

close EXCLUDE;

# Now go through input line-by-line comparing to hash and only # printing lines that do not match

open (DATA, $file1);

while ($line = )
{
chomp($line);
#NOTE – LOWERCASED HERE AS WELL
if(!exists $exclude{lc($line)})
{
print “$linen”;
}
}

close DATA;

exit 0;

sudo find ./ -name “*.svn” -exec rm -rvfd {} ;

Obviously you can replace the ./ to be whatever directory you want – I happened to be in the directory at the time. And as written it is verbose on the rm so that you can see what is being removed, but you can always get rid of the “v” in the “-rvfd”.

HTH.

http://www.hongkiat.com/blog/41-image-and-icon-search-engines-designers-should-know/