Perl, CPU-Auslastung

[CentralWay]

Hallo,
ich habe ein Perl-Skript geschrieben, welches die aktuelle CPU-Auslastung in % ausgeben soll. HIer das Skript:

system ("clear");
for (;;)
{
system ('top -b -n1|grep "Cpu(s)" > log.txt');
open (Datei,'log.txt');
$zeilen = <Datei>;
close (Datei);

$number = substr($zeilen, -69, 5);
print ("$number\n");


open(datei, ">log.txt");
print datei "";
close(datei);


sleep(1);
}

Was nicht gut ist ist folgendes:
Ausgabe:

9.4%
9.4%
9.4%
9.4%
9.4%
9.4%
9.4%

Wenn ich GIMP o.ä. öffne, steigt die Auslastung höchjstens auf 9.5%, d.h es passiert schon was aber diese Zahlen sind doch sehr unrealistisch. Ich glaub es liegt an "top -b -n 1", das habe ich gemacht, weil ich die normale top-ausgabe nicht gebrauchen konnte.

Bitte um Hilfe,
c-w

 

[LX]

Wieso nimmst du nicht die Ausgabe von /proc/loadavg? Die ist einfacher zu parsen.