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.
