From: "John W. Krahn" <[EMAIL PROTECTED]>
> Rob Dixon wrote:
> > obdulio santana wrote:
> >> May be this helps
> >>
> >> perl -lne "print if ++$D{$_} == 1" address.txt
> >
> > You may prefer the cuteness of
> >
> > perl -lne "print unless $D{$_}++" address.txt
>
> Or the shortness of:
>
> perl -ne'$D{$_}++||print' address.txt
>
> John
Actually this
perl -n'${$_}||=print'
works as well as long as the last line in the file either does end
with a newline or doesn't match any builtin variable whose default
value is already true.
One more keystroke down.
Jenda
===== [EMAIL PROTECTED] === http://Jenda.Krynicky.cz =====
When it comes to wine, women and song, wizards are allowed
to get drunk and croon as much as they like.
-- Terry Pratchett in Sourcery
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
