At 10:35 PM +0100 2003/01/17, Louis Pouzin wrote:
I was wondering if there is a method, or a hack, to find out the
amount of available memory at some point in executing a Perl script.
#!perl
use Mac::Memory;
print "\n \UFree in Heap -- Avail to Apps -- Free System -- Max Memory\E\n";
format STDOUT =
@>>>>>>>>> -- @>>>>>>>>> -- @>>>>>>>>> -- @>>>>>>>>>
$freeMem, $applLmt, $freeSys, $maxMem
.
$freeMem = FreeMem();
$applLmt = GetApplLimit();
$freeSys = FreeMemSys();
$maxMem = MaxMem();
write;
__END__
David Seay
http://www.mastercall.com/g-s/
