Supportnet / Forum / Skripte(PHP,ASP,Perl...)
Hilfe für ein Perl-Newcomer!!?!?!
Frage
Hallo,ich habe es geschafft ein Ping Programm zu schreiben das mich per Mail benachrichtigt. Nun ja da es funktioniert sträube ich mich ein wenig den quelltext komplett umzuschreiben. Für meinen jetzigen Zweck. Jetzt soll er in der E-mail eben den Text verfassen "Server1 ist verfügbar,server2 ist verfügbar,server3 ist verfügbar" anstelle das Ergebnis durch die Variable $result. Ich habe allerdings keine Ahnung wie ohne viel vom eigentlichen Quelltext zu ändern....könnte man mir da weiterhelfen?
#!/usr/bin/perl -w
$server="server1"; #Servername der angepingt werden soll
$server2="server2"; #Servername der angepingt werden soll
$server3="server3"; #Servername der angepingt werden soll
$result = `ping -c 1 $server`; #Befehl für den ersten Server
$result1 = `ping -c 1 $server2`; #Befehl für den zweiten Server
$result2 = `ping -c 1 $server3`; #Befehl für den dritten Server
if ( $result=~/transmitt/ ) {
print "$server ist verfügbar\n"; #Rückgabewert wenn verfügbar
}else{
print "$server ist nicht verfügbar\n"; #Rückgabewert wenn nicht verfügbar
}
if ( $result1=~/transmitt/ ) {
print "$server2 ist verfügbar\n"; #Rückgabewert wenn verfügbar
}else{
print "$server2 ist nicht verfügbar\n"; #Rückgabewert wenn nicht verfügbar
}
if ( $result2=~/transmitt/ ) {
print "$server3 ist verfügbar\n"; #Rückgabewert wenn verfügbar
}else{
print "$server3 ist nicht verfügbar\n"; #Rückgabewert wenn nicht verfügbar
}
open MAIL, "|mail -s Server-Antworten e-mailadresse"; #Schickt eine Mail an die E-Mail Adresse mit dem Betreff "Server-Antworten"
print MAIL " $result \n $result1 \n $result2 \n "; #Inhalt der Mail
close MAIL;
Antwort 1 von Advare
Kann mir niemand weiterhelfen???