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