#! /usr/bin/perl -w
$sample_interval = 5; # seconds

# Arrancar tareas cpu intensivos traseros ...
system("./burncpu &");
system("./burncpu &");

# Monitorizar perpetuamente carga media con uptime
# y emitir como campos separados para posible
# uso en programa hoja de cálculo.
while (1) {

@uptime = split (/ /, 'uptime');
foreach $up (@uptime) {
# recoger marca temporal
if ($up =~ m/(\d\d:\d\d:\d\d)/) {
print "$1\t";
}
# recoger tres metricas de carga
if ($up =~ m/(\d{1,}\.\d\d)/) {
print "$1\t";
}
}
print "\n";
sleep ($sample_interval); }