> I've got two machines here which are pretty crappy but there seems to be
> something seriously wrong somewhere. One machine, a Pentium 200 MMX
> with 80MB ram runs a very simple script taking 5 seconds.
*Drool*
I have three 486/66 machines with 16Mb ram, that are on my home LAN. I log
into those for most of my perl coding work. Yeah, they are old but most of
the time you don't notice they are slow. I have other machines, which
fortunately are faster.
> t@data:~$ cat test.pl
> use diagnostics;
> use strict;
>
> print "hi\n";
> t@data:~$ time perl test.pl
> hi
>
> real 0m5.105s
> user 0m4.990s
> sys 0m0.100s
>
> The same script without the use diagnostics and use strict provides a
> much faster execution.
It is obvious, diagnostics and strict are slowing it down. In particular,
diagnostics is dreadful for load times.
> t@data:~$ time perl test.pl
> hi
>
> real 0m0.113s
> user 0m0.060s
> sys 0m0.050s
> t@data:~$ cat test.pl
> print "hi\n";
>
> I'm actually trying to setup a CGI script and it appears very slow. I
> tracked the majority of the speed problems to those two statements. Is
> this normal or do I need to run these scripts on a faster computer? I
> would think that should not be necessisary.
There is a lot you can do with a 200Mhz machine, if speed is important
there is always mod_perl - which will remove these horrible load times
(mod_perl Perl loaded and ready for each new request).
Jonathan Paton
=====
s''-//--/\\///|-\/\|--\--/-\-/\-//\-|/\\\|/\///|-\--\\\\',
s''/-\\\/|///|-|/|/--\--/--//\|\/\||/|/-/\\\-/\///|-\-\-',
y'|\/-'3210',$_=join qq\\,map{s|2|10|||s|3|11|||s|^|0|;$_}
m|.|g;map{print chr unpack'N',pack'B32','0'x24 .$_}/.{8}/g
__________________________________________________
Do You Yahoo!?
Everything you'll ever need on one web page
from News and Sport to Email and Music Charts
http://uk.my.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
