[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

Re: [HS] lignes uniques



Le Thu 25/03/2004, Nicolas Rueff disait
> Ainsi parla Yves Rutschle le jeudi 25 mar 2004 vers 19:03 à propos de «
> Re: [HS] lignes uniques » :
> 
> > On Thu, Mar 25, 2004 at 05:17:48PM +0100, François Boisson wrote:
> > > Programme perl un peu "goret" qui doit marcher (j'ai mis stdin et
> > > stdout ici mais il suffit de décommenbter pour avoir le fichier
> > > entrée et sortie).
> > 
> > On peut bien entendu faire plus court en utilisant un hash:
> > 
> > 
> > #!/usr/bin/perl
> > 
> > while(<>)
> > {
> >     print unless $lignes{$_};
> >     $lignes{$_} = 1;
> > }
> > 
> > 
> > 
> > Et si on a la flemme de faire un fichier pour un script si
> > court, on peut faire encore mieux:
> > 
> > cat in | perl -ne 'print if! $l{$_}; $l{$_}=1;' > out
> 
> Ça y est, on repart pour un tour de one-liner ?

et d'UUOC...

-- 
Erwan



Reply to: