Hi Perl Hacker! I have a set of scripts in use on my system that i would
like to start tweaking. They are all hand written and not someone elses
work. I would like to start reducing the memory it takes to run the scripts.
I want to start implementing undef declarations in the scripts, is there a
method to this madness, do you actually have to declare before undef'ing
them? A simple example of memory hogging is:
# Opening a file
sub somesub {
open(FILE, "user.data");
@SOMEVAR = <FILE>
foreach $_ (@SOMEVAR) {
chop ($_);
@SPLITED=split(/\|/, $_);
... some code here
undef @SPLITTED;
}
undef @SOMEVAR;
}
is this the correct format for reducing memory usage as this sample routing
pulls in a large file and splits it up then analyes it and spits it to
screen via web.? The typical size of the perl viewed via top during usage is
around 125 to 150 megs each execution, which when 15-20 people are running
it means you need a real mean machine. Typically my machine just hangs and
starts to que the processes and people get overly anxios and hit reload just
doubling and so on the executions of these scripts.
Many Thanks,
John
_______________________________________________
Perl-Unix-Users mailing list. To unsubscribe go to
http://listserv.ActiveState.com/mailman/subscribe/perl-unix-users
