Le 12502ième jour après Epoch, Nicolas Rueff écrivait: > 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 ?
Bon, si tu veux... On peut légèrement améliorer ça: perl -ne 'print if! $l{$_}; $l{$_}=1;' < in > out ça évite un cat et un pipe... Mais bon... -- tmps_base = tmps_max; /* protect our mortal string */ -- Larry Wall in stab.c from the perl source code