in reply to Re: Solution to broken Net::Ping
in thread Solution to broken Net::Ping

This is one of those occasions where the method works, but the documentation is a mess:)

except that it isn't

you have 6 choices. If the default doesn't work for you, the documentation is explicit, make another choice.

Replies are listed 'Best First'.
Re^3: Solution to broken Net::Ping
by Generoso (Prior) on Dec 16, 2011 at 21:16 UTC

    You may want to try.

    #!/usr/bin/perl -w

use strict;
use Net::Ping;    
$| = 1;
my @hosts = <DATA>;
my @proto = ("tcp", "udp", "icmp", "stream", "syn");
foreach my $pro ( @proto ) {
    print "\nProtocol $pro \n";
    my $p = Net::Ping->new($pro);
    foreach my $host( @hosts ) {
        chomp($host);
 # Specify source interface of pings
        print "$host is ";        
        print "NOT " unless $p->ping($host, 2);        
        print "reachable.\n"; 
    }  
    $p->close();  
}
exit;

__DATA__
127.0.0.1
www.perlmonks.com

    [download]
[reply]
[d/l]
[reply]

      ll it seems my script works like should when I on my local network. Where I run into problems is when I am on my vpn. If I run the script while connected to the VPN it cannot ping the host. If I place the script on a server within the network it works fine. So now I need to find out why it is not pinging over the VPN because I do most of my work over it.

      <Disregard my ramblings above>

      I found the issue to the above problem, my "dev" box is a VM, VMware is preforming NAT to the VMs on my laptop. Then on top of that OpenVPN is performing NAT again which seems to be causing problems. If I connect OpenVPN directly to the VM the ping test using my script works like it should.

[reply]

In Section Seekers of Perl Wisdom