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 Y.