Re: eliminating duplicate lines in a file

[Paul]

--- "M.W. Koskamp" <[EMAIL PROTECTED]> wrote:
> > : open FH, "lines.txt" || die $!;
> > : my %uniq;
> > : map{$uniq{$_}=1 and print $_ unless $uniq{$_} }<FH>;

lol -- one better(ish....):
 print map { $uniq{$_} ? '' : $uniq{$_}=$_ } <FH>; #:op

__________________________________________________
Do You Yahoo!?
Yahoo! Auctions - buy the things you want at great prices
http://auctions.yahoo.com/