Re: [HS] lignes uniques

[Yves Rutschle <debian.anti-spam@rutschle.net>]

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.