use Proc::ProcessTable; my $t = Proc::ProcessTable->new(); foreach my $p ( @{$t->table} ) { if($p->pid() == $$) { print "I'm ", $p->size(), " bytes big.\n"; last; } }
In reply to Re: Total Memory Size Used up by a Perl Script
by saintmike
in thread Total Memory Size Used up by a Perl Script
by monkfan
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |