Re: [FWP] Wanted - Have = Need

[Jeff Pinyan <jeffp@crusoe.net>]

On Oct 13, John Carter said:

>open( HAVE, "have");
>%Have = map {$_=>1} <HAVE>;
>close HAVE;
>open( WANTED, "wanted");
>print grep { !exists( $Have{$_})} <WANTED>;
>close WANTED;

  perl -e 'do{$w{<>}=1}until+eof;delete@w{<>};print+keys%w' WANT HAVE

-- 
Jeff "japhy" Pinyan     japhy@pobox.com     http://www.pobox.com/~japhy/
PerlMonth - An Online Perl Magazine            http://www.perlmonth.com/
The Perl Archive - Articles, Forums, etc.    http://www.perlarchive.com/
CPAN - #1 Perl Resource  (my id:  PINYAN)        http://search.cpan.org/


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe