🚀 go-pugleaf

In comp.lang.perl, 
    bkonarsk@condor.mcs.kent.edu (Beirne Konarski) writes:
:Gert Doering (gert@greenie.muc.de) wrote:
:: robertl@arnet.com (Robert Lipe) writes:
:: but what *is* really slow is the startup time if I "use Tk". Maybe it's
:: related to my statically linking everything, maybe it's Tk itself. Does
:: anybody else experience slow TkPerl startup time as well?
:
:I've noticed the same thing, and I link Tk dynamically.  I end up with a huge
:program in memory, so I figure that's the price of programming convenience.
:Also, my one Tk program stays up all day, so I can tolerate a slow startup.

Here is the memory size difference between perl and perl with tk loaded:

       F UID   PID  PPID CP PRI NI  SZ  RSS WCHAN    STAT TT  TIME COMMAND
20008201 101 15144 10263  5  15  0 128  636 kernelma S    p3  0:00 perl -e print "ok";
20008201 101 15158 10263 22  15  02032 2908 kernelma S    p3  0:04 perl -e use Tk;prin

It also appears that it can't use what's already loaded, somehow.  I don't
know how the dynamic loading works, though.


% time perl -e 'use Tk'
4.260u 0.710s 0:08.73 56.9% 0+1896k 0+5io 0pf+0w
% time perl -e 'use Tk'
4.090u 0.630s 0:08.72 54.1% 0+1889k 0+4io 0pf+0w

% time perl -e ''
0.020u 0.110s 0:00.15 86.6% 0+268k 0+6io 0pf+0w
% time perl -e ''
0.040u 0.130s 0:00.19 89.4% 0+278k 0+4io 0pf+0w

--tom
-- 
Tom Christiansen      Perl Consultant, Gamer, Hiker      tchrist@mox.perl.com

Hartley's Second Law:
        Never sleep with anyone crazier than yourself.