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.
