Your IP : 216.73.216.74
#!/usr/bin/perl
#port of libgtop-x.xx/examples/mountlist.c
use strict;
use ExtUtils::testlib;
use GTop ();
my $gtop = GTop->new;
my $pid = shift || $$;
printf STDERR "Getting memory maps for pid %d.\n\n", $pid;
my($procmap, $maps) = $gtop->proc_map($pid);
my $number = $procmap->number;
for (my $i = 0; $i < $number; $i++) {
my $filename = $maps->filename($i) || "-";
my $perm = $maps->perm_string($i);
my $device = $maps->device($i);;
my $device_minor = ($device & 255);
my $device_major = (($device >> 8) & 255);
my $ptr_size = length pack("p", 0);
if ($filename) {
my $format;
if ($ptr_size == 8) {
$format = "%016lx-%016lx %016lx - " .
"%02x:%02x %08lu - %4s - %s\n";
}
else {
$format = "%08lx-%08lx %08lx - " .
"%02x:%02x %08lu - %4s - %s\n";
}
printf STDERR $format,
$maps->start($i),
$maps->end($i),
$maps->offset($i),
$device_major, $device_minor,
$maps->inode($i),
$perm, $filename;
}
else {
my $format;
if ($ptr_size == 8) {
$format = "%016lx-%016lx %016lx - " .
"%02x:%02x %08lu - %4s\n";
}
else {
$format = "%08lx-%08lx %08lx - " .
"%02x:%02x %08lu - %4s\n";
printf STDERR $format,
$maps->start($i),
$maps->end($i),
$maps->offset($i),
$device_major, $device_minor,
$maps->inode($i),
$perm;
}
}
}