Yves Rutschle a �crit, jeudi 25 mars 2004, � 21:35 :
> On Thu, Mar 25, 2004 at 09:36:52PM +0100, Jacques L'helgoualc'h wrote:
> > > cat in | perl -ne 'print if! $l{$_}; $l{$_}=1;' > out
> > UUOC :)
>
> En effet; mais comme j'�cris et je lis de gauche � droite,
> j'ai tendance � penser que d'autres font �a aussi et que �a
> peut paraitre plus clair � la premi�re lecture.
Oui, mais tu peux l'�crire � <in perl ... >out �.
> Par contre, ton AWK inspire une optimisation qui m'avait
> �chapp�e:
>
> perl -ne 'print if!$l{$_}++;' < in > out
... et on peut encore enlever le point-virgule ;)
M'enfin, c'est tout de m�me un UUOP !
--
Jacques L'helgoualc'h
