Serverload mit Perl abfragen

Bash, Shell, PHP, Python, Perl, CGI
adams
Posts: 4
Joined: 2004-08-16 11:40

Serverload mit Perl abfragen

Post by adams » 2004-10-18 10:37

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
Posts: 48
Joined: 2002-05-30 17:47

Re: Serverload mit Perl abfragen

Post by pickel » 2004-10-18 12:34

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
Posts: 16
Joined: 2004-10-20 12:56
Location: Dresden

Re: Serverload mit Perl abfragen

Post by rob k » 2004-10-21 14:03

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