[Date Prev][Date Next][Thread Prev][Thread Next] [Date Index] [Thread Index]

Subject: Re: PING mit PERL absetzten
From: Stefan Eilemann
Date: 2 Mar 2000 09:56:47 -0000


On Thu, Mar 02, 2000 at 08:49:17AM +0000, Gunther Grelczak wrote:
> Guten Morgen,
> 
> ich möchte mit einem Perl-Script einen/mehrere Rechner
> (WIN/MAC/LINUX/NT) anpingen, um zu sehen, ob sie noch da sind und die
> Auswertung in eine Datenbank eingeben. Datenbankeingabe in Perl = No
> Problem. Aber wie bringe ich den PING-Befehl in Perl unter ?
> Auf der Bash ist das ja ganz easy :
> 
> z.B. ping -c3 -i2 -w1 xxx.xxx.xxx.xxx | grep %
> liefert mir
> 3 packets transmitted, 3 packets received, 0% packet loss 
> zurück und das konnte ich im script abfragen.
> Doch nun möchte ich diesen PING in Perl abschicken, das Ergebnis
> in eine Variable packen und Datum und Uhrzeit etc. in einer Datenbank
> ablegen. Ich habe schon mehrere Bücher gewälzt, aber nichts gefunden.
> Wer kann helfen.
open PING,"ping -c3 -i2 -w1 xxx.xxx.xxx.xxx | grep %|" or die "Cant fork for ping: $!";
while(<PING>){
parsing etc.
}
close PING;
> 
Stefan