Re: help with a function that will cut out redundancy across two lists

I think you want to do something like this ...

plankton@ubuntu:~$ cat seen.pl
#!/usr/bin/perl -w
use strict;

my %seen;

while(<>) {
        chomp;
        $seen{$_}++;
}

for my $name ( keys %seen ) { print "$name\n"; }

plankton@ubuntu:~$ cat names1
delbert
james t kirk
lisa simpson
george of the jungle
molly
plankton@ubuntu:~$ cat names2
adolf
albert
molly
fortran
plankton@ubuntu:~$ ./seen.pl names1 names2
albert
molly
james t kirk
george of the jungle
adolf
delbert
lisa simpson
fortran
[download]

... right?

Comment on Re: help with a function that will cut out redundancy across two lists Download Code