Perl – carga del sistema

Tue, 07 Sep 2010 08:45:06 +0000

Para encontrar la carga del sistema, utilice el siguiente fragmento de Perl:

Carga del sistema del último minuto:

my $system_load = exec('<a class="zem_slink" title="Uptime" rel="wikipedia" href="http://en.wikipedia.org/wiki/Uptime">uptime</a> | awk -F "load average: " \'{ print $2 }\' | cut -d, -f1');
my $system_load = qx('uptime | awk -F "load average: " \'{ print $2 }\' | cut -d, -f1');

Carga del sistema de los últimos 5 minutos:

my $system_load = exec('uptime | awk -F "load average: " \'{ print $2 }\' | cut -d, -f2');
my $system_load = qx('uptime | awk -F "load average: " \'{ print $2 }\' | cut -d, -f2');

Carga del sistema de los últimos 15 minutos:

my $system_load = exec('uptime | awk -F "load average: " \'{ print $2 }\' | cut -d, -f3');
my $system_load = qx('uptime | awk -F "load average: " \'{ print $2 }\' | cut -d, -f3');

Awk on Shafiq Alibhai

Perl – carga del sistema