Hallo Thomas,

Kann mir jemand bitte nocheinmal etwas genauer erläutern, welche Rückgabewerte mir in diesem Fall nützlich sind und ab welchen Werten ich meinen Server als ausgelastet betrachten kann?

Also ich hab jetzt noch mal im Suchscript nachgeguckt. Dort steht einfach:

use CGI qw/redirect/;

zuerst schauen: wieviele Prozesse laufen?

my $prozesses = ps -e | grep such.pl | grep -v grep | wc -l;
if($prozesses > 3) {
 print redirect(-status => 301, -uri => 'http://www.teamone.de/selfaktuell/src/suche_max.htm');
 exit 0;
}

Waere natuerlich auch eine Antwort gewesen ... :-)

viele Gruesse vom Allesoffenleger
  Stefan Muenz

Hallo Frank

danke fuer den Hinweis!
Ich hatte das mit dem Return-Code zwar auch gelesen (sogar bei mir selber *g*), aber irrtuemlich doch falsch beschrieben hier ...

viele Gruesse
  Stefan Muenz

Hi,
danke erstmal für eure Hilfe.

hi!

In Perl kann man solche Kommandos mit der Funktion system() aus
einem Script heraus ausfuehren. Beispiel:
my $Ergebnis = system("vmstat");
Und dann musst dein Script halt $Ergebnis z.B. mit Hilfe
regulaerer Ausdruecke auseinanderdroeseln und aus den ermittelten
Werten seine Reaktionen ableiten.

perldoc -f system:
   [...]
   The return value is the exit status of the program as returned
   by the "wait" call. To get the actual exit value divide by 256.
   See also the exec entry elsewhere in this document. This is
   *not* what you want to use to capture the output from a command,
   for that you should use merely backticks or "qx//", as described
   in the section on "STRING" in the perlop manpage. Return value
   of -1 indicates a failure to start the program (inspect $! for
   the reason).
   [...]

Besonders wichtig in diesem Zusammenhang erscheint mit die fett-
gedruckte Stellte mit dem *not*... ;)

Also, wie es dort schon steht: Backticks oder qx// verwenden!

nur um sicher zu gehen:
$var=´uptime´;
oder
$var=qx/uptime/;
ist das korrekt?
MfG
Grinsebert