[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

Re: [HS] lignes uniques



Bonjour,

Jacques L'helgoualc'h wrote:

Yves Rutschle a écrit, jeudi 25 mars 2004, à 22:34 :
On Thu, Mar 25, 2004 at 11:19:14PM +0100, Jacques L'helgoualc'h wrote:
[...]
M'enfin, c'est tout de même un UUOP !
Ouaip. Je le ferai plus, maintenant que je peux écrire de
gauche à droite sans :-)

UUOP = Useless Use Of *Perl* ;)

lhh $ time perl -ne 'print if!$l{$_}++' <tmp/bench &>/dev/null

real    0m0.047s
user    0m0.040s
sys     0m0.010s
lhh $ time awk '!l[$0]++' <tmp/bench &>/dev/null

real    0m0.027s
user    0m0.030s
sys     0m0.000s

aarrff ton bench est truqué :), vu le temps d'exécution hyper court, l'init de l'interpréteur perl fausse les résultats. Refait la même chose avec un fichier de plusieurs Mo, voir 100 Mo à 1 Go pour voir et là ce sera significatif.

C'est pas pasque c vendredi qu'on peut tout s'permettre non plus  ! ;)

A+,

 J8.



Reply to: