[BraLUG] Ping-Tool

[Robert Schulze]

Das geht auch anders:

--- snip ---

use Net::Ping;
my $CLR=readpipe('clear'); #<---

my @HOSTS=("217.160.94.55","www.heise.de");

my $po=Net::Ping->new('icmp',2);

while(1)
         {
        print $CLR;    #<---
         foreach my $host(@HOSTS)
         [... rest des codes ...]

--- snap ---

Nun wird nicht mehr gescrollt.
Rob

PS: Wenn du Interesse hast, dann bau ich das noch so um, dass es die Hosts
aus ner Datei liest.



----- Original Message -----
From: "Nico Rittner" <nrittner at cs.atlas-brb.de>
To: "Die BraLUG Mailingliste" <bralug at bralug.de>
Sent: Friday, November 11, 2005 2:08 PM
Subject: Re: [BraLUG] Ping-Tool


Hallo,

> #!/usr/bin/perl -w
nee, gut gemeint, aber das
ist das selbe Gescrolle wie 'fping'.

Nico.
_______________________________________________
Bralug mailing list
Bralug at bralug.de
http://list.bralug.de/mailman/listinfo/bralug