Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Find memory usage of perl program

by toma (Vicar)
on Feb 16, 2003 at 18:06 UTC ( #235757=snippet: print w/ replies, xml ) Need Help??
Description: Proc::ProcessTable has access to the sort of information found in programs like top and ps. This sub finds the memory usage of the program that calls it.

Proc::ProcessTable currently works on windows, linux, solaris, aix, hpux, freebsd, irix, dec_osf, bsdi, netbsd, unixware 7.x and SunOS.

The windows port requires the Cygwin environment.

use Proc::ProcessTable;
print "My memory=", memory_usage(), "\n";

sub memory_usage {
  my $t = new Proc::ProcessTable;
  foreach my $got ( @{$t->table} ) {
    next if not $got->pid eq $$;
    return $got->size;
  }
}
Replies are listed 'Best First'.
Re: Find memory usage of perl program
by Anonymous Monk on May 06, 2008 at 19:59 UTC

    i just made a simple script to test this out and..

    #!/usr/bin/perl use Proc::ProcessTable; sub memory_usage { my $t = new Proc::ProcessTable; foreach my $got ( @{$t->table} ) { next if not $got->pid eq $$; return $got->size; } } print 'memory: '. memory_usage()/1024/1024 ."\n";

    Running it results in:

    $ ./test.pl memory: 6.26953125

    how normal is that?

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: snippet [id://235757]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (15)
As of 2016-07-26 18:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What is your favorite alternate name for a (specific) keyboard key?


















    Results (239 votes). Check out past polls.