48 lines
995 B
Perl
48 lines
995 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
|
||
|
|
my $wgetPath = "/usr/bin/wget";
|
||
|
|
|
||
|
|
my $numArgs = $#ARGV + 1;
|
||
|
|
|
||
|
|
if( $numArgs < 2 ) {
|
||
|
|
usage();
|
||
|
|
}
|
||
|
|
|
||
|
|
open( LIST_FILE, $ARGV[0] ) or usage();
|
||
|
|
|
||
|
|
print "opening $ARGV[0] for reading\n";
|
||
|
|
|
||
|
|
my $hits = 0;
|
||
|
|
|
||
|
|
while( <LIST_FILE> ) {
|
||
|
|
chomp;
|
||
|
|
# print "LINE: $_\n";
|
||
|
|
(my $email, my $name) = split( /,\W*/ );
|
||
|
|
$name =~ s/ /\+/g;
|
||
|
|
|
||
|
|
|
||
|
|
for( my $argIndex=1; $argIndex<$numArgs; $argIndex++ ) {
|
||
|
|
my $otherListFile = $ARGV[ $argIndex ];
|
||
|
|
|
||
|
|
my $result = `grep -c $email $otherListFile`;
|
||
|
|
|
||
|
|
if( $result > 0 ) {
|
||
|
|
print "$email, $name\n";
|
||
|
|
$hits ++;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
print "+++ Total hits: $hits\n";
|
||
|
|
|
||
|
|
sub usage {
|
||
|
|
print "Usage:\n";
|
||
|
|
print " checkDuplicates.pl list_file_name older_list [older_list ...]\n";
|
||
|
|
print "Example:\n";
|
||
|
|
print " checkDuplicates.pl list.txt fullSail1/list1.txt fullSail2/list2.txt\n";
|
||
|
|
print "List files must have one person per line in the following format:\n";
|
||
|
|
print " bob\@test.com, Bob Babbs\n";
|
||
|
|
die;
|
||
|
|
}
|