Benchmark process size

benchmark-process-size.pl

#!/usr/bin/perl
use strict;
use warnings;

use Benchmark qw(cmpthese);
use GTop;
use Proc::ProcessTable;

my $gtop   = GTop->new;
my $ptable = Proc::ProcessTable->new(cache_ttys => 1);

cmpthese -1, {
    gtop => sub {
        $gtop->proc_mem($$)->size;
    },
    gtop_renew => sub {
        GTop->new->proc_mem($$)->size;
    },
    ptable => sub {
        for (@{$ptable->table}) {
            return $_->size if $$ == $_->pid;
        }
    },
};