in reply to Re^7: using online translation engines with perl (ping)
in thread using online translation engines with perl
That I can't reach google with Net::Ping is a head-scratcher.
Indeed it is. I'm unable to reproduce that. Perhaps this pared-down test would be a starting point?
use strict; use warnings; use Net::Ping; use Test::More tests => 2; my $dest = 'www.google.com'; my $pinger = Net::Ping->new ('icmp', 3); my $res; $res = system ("ping -nqc1 -w 3 -W 3 $dest > /tmp/ping.log"); is ($res, 0E0, "System ping to $dest"); $res = $pinger->ping ($dest); ok ($res, "Net::Ping to $dest"); $pinger->close;
Running this I see the expected output.
$ sudo prove -v googleping.t googleping.t .. 1..2 ok 1 - System ping to www.google.com ok 2 - Net::Ping to www.google.com ok All tests successful. Files=1, Tests=2, 1 wallclock secs ( 0.05 usr 0.01 sys + 0.05 cusr + 0.01 csys = 0.12 CPU) Result: PASS
If you can run this and pass one test but not the other, I suggest firing up wireshark and see what's actually happening on the network. Good luck.
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^9: using online translation engines with perl (ping)
by Aldebaran (Curate) on Nov 30, 2018 at 00:28 UTC | |
by haukex (Archbishop) on Nov 30, 2018 at 08:48 UTC |