in reply to Getting Process Size
#!/usr/bin/perl use warnings; use strict; my $pid = shift || $$; print get_size($pid),"\n"; sub get_size{ my $pid = shift; my @size = split "\n", `cat /proc/$pid/status`; (my $vmsize) = grep {/VmSize/} @size; my (undef,$size) = split ' ',$vmsize; return($size); }
|
|---|