Foro - Perl en Español

por **explorer** » 2013-05-20 05:35 @274

«Lo siguiente es un script Perl que desarrollé para conocer el consumo de memoria RAM física real de un proceso o aplicación que está ejecutándose. Para los que no lo sepan, el comando 'ps' no ofrece mucha ayuda sobre esto, porque solo muestra las páginas reservadas en memoria virtual para un proceso, pero no especifica cuánta RAM real está utilizando dicho proceso. (Y no siempre utiliza todas las páginas que reserva en memoria virtual).»

Artículo

#!/usr/bin/perl
use strict;
use warnings;
 
use Linux::Smaps;
my $numero = 1024;
 
print "Inserta el PID del proceso que quieres Analizar ::  ";
chomp(my $pid = readline);
 
my $map  = Linux::Smaps->new($pid);
my @vmas = $map->vmas;
my $a    = $map->private_dirty;
my $b    = $map->shared_dirty;
my $c    = $map->rss;
 
my @todo = ( $a, $b );
 
my $total = 0;
for ( my $contador = 0; $contador < @todo; $total += $todo[$contador] ) { }
 
print "-------------- M A P E O   D E   M E M O R I A -----------\n\n";
print "==========================================================\n";
print "Memoria Privada            :: $a KB\n";
print "Memoria Compartida         :: $b KB\n";
print "Memoria Virtual Reservada  :: " . ( $c / $numero ) . " MB\n";
print "-----------------------------------------------------------\n";
print "El consumo total de RAM es :: " . ( $total / $numero ) . " MB\n";
print "--------------------------------------------------------------\n";
1;
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Linux Latinamérica: Script Perl Monitorear Consumo Real RAM

Linux Latinamérica: Script Perl Monitorear Consumo Real RAM

Publicidad

Re: Linux Latinamérica: Script Perl Monitorear Consumo Real

¿Quién está conectado?