script con ping da completare,chi mi aiuta?

[arsy]

ciao, non so come finire questo script (diciamo che +- ho cominciato oggi)

se pinga deve partire beep_si, ma non so come completarlo...
questo l'ho fatto scopiazzando qua e là e incominciando a capire qualche cosa.
ho tolto le ultime righe, chi mi aiuta? non dovrebbe essere complicato....credo....
ah, sarebbe bello scrivesse un file di log, quando il ping risponde negativo

#!/usr/bin/perl


# CONFIGURAZIONE

my $ping="/bin/ping";
my $grep="/bin/grep";
my $beep="/usr/bin/beep_si"; #file beep destinazione raggiungibile
my $pingdestinatione="192.168.2.2";
my $writedir="/home/debian/"; # Un file di LOG

# Touch LOG
`touch $writedir/log-ping.tmp`;

# Prova ping
my $provaping = `$ping $pingdestinatione | $grep received`;

# Resultati
if ($pingres =~ /(\d+) packets transmitted, (\d+) received, .*/) {

`$beep_si`;
else



}

[osiryx]

perldoc Net::Ping

In fondo se vuoi utilizzare il perl ti converrebbe utilizzare i suoi moduli

[Ilmalcom]

Sposto su CGI e PERL

[pierluigi p]

ping -c 1 www.google.it &> /dev/null ;
RES=$(echo $?)

controlla il valore di RES , se e' zero va tutto bene...

pierluigi
ps esistono altri 10 modi ...

[gizax]

esempiuzzo

use Net::Ping;
$p = Net::Ping->new();
print "$host is alive.\n" if $p->ping($host);
$p->close();
$p = Net::Ping->new("icmp");
foreach $host (@host_array)
{
print "$host is ";
print "NOT " unless $p->ping($host, 2);
print "reachable.\n";
sleep(1);
}
$p->close();
$p = Net::Ping->new("tcp", 2);
while ($stop_time > time())
{
print "$host not reachable ", scalar(localtime()), "\n"
unless $p->ping($host);
sleep(300);
}
undef($p);
# For backward compatibility
print "$host is alive.\n" if pingecho($host);

[pierluigi p]

un po' prolisso no?
con il file listhost contenente la lista
www.google.it
www.tiscali.it
www.slack.z00.it

#!/bin/bash 
for i in $(< listhost);do
(ping -c 1 $i &>/dev/null && echo "$i is ok") || echo "$i is not ok"
done

pierluigi

[gizax]

Originariamente inviato da pierluigi p
un po' prolisso no?
con il file listhost contenente la lista
www.google.it
www.tiscali.it
www.slack.z00.it

#!/bin/bash 
for i in $(< listhost);do
(ping -c 1 $i &>/dev/null && echo "$i is ok") || echo "$i is not ok"
done

pierluigi

beh si certo, ma siccome avevano spostato su cgi e perl