ping script

["Lars Eckberg" <sslug@sslug>]

Hej,

Jeg er MEGET ny i programering / perl... Jeg har fået strikket dette sammen,
men jeg kan ikke få det til at køre. Fejlbeskeden forstår jeg ikke.. så vidt
jeg kan se er syntaxen god nok på både array og foreach... Er der en der kan
hjælpe lidt....??

Fejlbesked:
sslug@sslug bin]# ./xov
./xov[4]: use: not found
./xov[6]: syntax error: `(' unexpected


Det er meningen at scriptet skal pinge et antal hosts, 5 gange i træk, og
hvis det IKKE går godt skal det lave en traceroute og sende den til mig i en
mail med dato i..

#/usr/bin/perl -w
#
use Net::Ping;

@host_array = ( "www.jubii.dk", "www.dr.dk" );
$traceroute = "/usr/sbin/traceroute -n -m 25 -q 1";
$time = "/bin/date";

done = false;
while ( ! done ) {
        $p = Net::Ping->new("icmp");
        foreach $host (@host_array) {
                for (i=0; i < 4 && not(done); i++)
                done = $p->ping($host, 2);
                if (not(done)) {
                        $trace = `$traceroute $host`;
                        $date = `$time`;
                        open(MAIL, "|/usr/bin/mail -s \"$host\"
sslug@sslug") or die("Cant open: $!");
                        print MAIL $date;
                        print MAIL $trace;
                        close(MAIL);
                        }
                }
        $p->close();
sleep(45);
}

Mvh  Lars