Net::Ping

Hvilken maskine ligger din perl på. (Hvis linux ligger modulet ping der allerede).

ellers download på www.perl.org

eller linux.org

Har prøvet på en Linux Server..... men kan ikke få det til at virke.. ??

Men har også en w2k webserver kørende med ActivePerl, har endnu ikke prøvet på denne !

Hvis du må køre ping på din unix plejer man at anbefale noget i denne retning:

$rslt = `ping www.jubii.dk`;
if ($rslt =~ /active/ ) {
    print \"Jubii kan naas\\n\";
}  else {
    print \"Jubii er vaek\\n\";
}
 

Ovenfornævnte metode som erikjacobsen benytter, er et shell-escape... Dette er dyrt (ressourcemæssigt) at lave, og desuden ikke portabel kode !

her er et stykke grimt, hurtigt sammenbixet kode der virker med Net::Ping på en FreeBSD æske. Jeg har inkluderet Time::HiRes modulet for at kunne udføre meget præcise sekundberegninger...

Om det virker på en Linux / NT æske også aner jeg ikke.

PS: du skal være root for at benytte icmp metoden !

------------------ snip -------------------------

#!/usr/bin/perl

use Net::Ping;
use Time::HiRes qw( gettimeofday tv_interval usleep);  ## for nøjagtig tidsberegning


$p = Net::Ping->new(\"icmp\");

$host=\"www.chaos.dk\";
$ant=10; $wait=1;
$min=10000; $max=0; $pk=0; $sum=0;
for ($i=1; $i<=$ant; $i++)
{
    $a=[gettimeofday];
    if ($p->ping($host, 1))
    {
      $b= 1000 * tv_interval( $a,[gettimeofday]);
      #print \" ($b ms)\\n\";
      print STDERR \".\";
      $sum=$sum+$b; $pk++;
      $max=$b if ($b>$max);
      $min=$b if ($b<$min);
    }
    else
    {
      print STDERR \"!\";
    }
    usleep($wait*1000);
}
print STDERR \"\\n\";
if ($pk == 0)
{
  print STDERR \"$host is NOT pingable\\n\";
}
else
{
  $avg=sprintf(\"%5.3f\",$sum/$pk);
  $pl=int(($ant-$pk)/$ant*100);
  print STDERR \"--- $host ping statistics ---\\n\";
  print STDERR \"$ant packets transmitted, $pk packets received, $pl% packet loss\\n\";
  print STDERR \"round-trip min/avg/max = $min/$avg/$max ms\\n\";
}
$p->close();                                                                   

------------------ end snip -----------------------

Det er nemlig lige det, mc, man skal være root. En shell-escape er dyr, men den
virker - hvis ellers ping-kommandoen virker. Uden icmp kan net::ping i princippet
også virke (med udp), men det har vi jo åbenbart problemer med.

nu gik spørgsmålet på Net::Ping og ikke på ping generelt!

\"thaggren\" specificerede ikke platform og rettigheder, så derfor nævnte jeg blot at icmp metoden kræver root rettigheder (man kan jo lave Denial Of Service sager med store icmp pakker, så det er rimeligt nok syntes jeg)