in reply to Solution to broken Net::Ping

This is one of those occasions where the method works, but the documentation is a mess:). This works: 
#!/usr/bin/perl

use strict;
use warnings;
use Net::Ping;

my $target = 'www.perlmonks.com';
my $ping = Net::Ping->new("tcp", 2);
$ping->{'port_num'} = (getservbyname("http", "tcp") || 80);
if ($ping->ping($target)) {
    print "Yes, I can ping $target\n";
} 
else {
    print "No, I cannot ping $target\n";
}
$ping->close();

[download]

Replies are listed 'Best First'.
Re^2: Solution to broken Net::Ping
by Anonymous Monk on Dec 16, 2011 at 09:44 UTC

    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.

[reply]

      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