Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Find memory usage of perl program

by toma (Vicar)
on Feb 16, 2003 at 18:06 UTC ( [id://235757]=CUFP: print w/replies, xml ) Need Help??

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
Domain Nodelet?
Node Status?
node history
Node Type: CUFP [id://235757]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others examining the Monastery: (4)
As of 2024-03-29 09:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found