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 ?
--
Nicolas Rueff � Montb�liard � France � http://rueff.homelinux.org
(^> [EMAIL PROTECTED] � GPG 0xDD44DAB4
/v\ Jabber [EMAIL PROTECTED] � ICQ 97700474
<__/ � We are Penguin. Resistance is futile. You will be assimilated. �
