Re: opening speed for nnml groups

[Lars Balker Rasmussen <lbr@mjolner.dk>]

Sean Doran <smd@ebone.net> writes:
> Ich, perl is a pig.  This makes me feel good about my
> choice for a scripting shell:
[...]
> > (run (time scsh -c 
> 	"(let loop ((i 1))
> 		(close-output-port 
> 		 (open-output-file (string-append \"test/\"
> 				    (number->string i))))
> 		(if (< i 10001) 
> 		    (loop (+ i 1))))"))
>       175.68 real         6.71 user        68.59 sys
> > (run (time perl -e "foreach $a (1..10000) { open FOO, \">test/$a\" }"))
>       198.90 real	  5.81 user	   68.99 sys

Not quite fair, as perl constructs the 1..10000 list in my orignal code
snippet.  Try this instead:

(run (time perl -e "while ($i++ < 10000) { open FOO, \">test/$i\" }"))

BTW, thank you for all the "My Pentium is faster than your Ultra" mails :-)

ObGnus: Are anyone able to (e)dit an nnml message without surprising
	results?
-- 
Lars Balker Rasmussen, Software Engineer, Mjolner Informatics ApS
lbr@mjolner.dk