Sudarshan Raghavan wrote:
>
> On Wed, 2 Oct 2002, jontn_swift wrote:
>
> > This is a classic case for my favorite one-liner:
> >
> > perl -e'while(<>){print unless $seen{$_}++}' <infile >outfile
>
> You favourite one-liner can be even shorter
> perl -n -e 'print unless $seen{$_}++' infile >outfile
You want short? :-)
perl -ne'$s{$_}++||print' infile >outfile
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
