Serverload mit Perl abfragen

[adams]

Hallo

Wie kann ich die Loadwerte, die man mit "top" angezeigt bekommen, via Perl ermitteln?

Hintergrund:
Ich möchte den Aufruf eines sehr rechenintensivem cgi-Programms mit vielen Datenbankabfragen ggf. blockieren, wenn der augenblicke Serverload zu hoch ist. Bei einigen Foren gibt es ja solche "Begrenzer".

[pickel]

führ einfach folgenden befehl aus:

Code: Select all

uptime | awk '{print $9}' | sed -e 's/,//'

und du hast den load der letzten minute..
für die letzten 5 Minuten nehme anstatt $9 einfach $10 und anstatt 5 minuten lieber 15 minuten nehm $11

[rob k]

ALternativ kannst Du auch "/proc/loadavg" auslesen ...