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


Come for the quick hacks, stay for the epiphanies.
	PerlMonks

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

by Plankton (Vicar)

on May 20, 2011 at 07:00 UTC ( [id://905871]=note: print w/replies, xml )

Need Help??

in reply to 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?