Gunwant Singh wrote:
> I have written a code to ping remote sites:
> -----------------------------------
> use strict;
> use warnings;
> use Socket;
> use Net::Ping;
>
> print 'Enter a hostname/IP ';
> my $ip,my $host;
> $ip=<STDIN>;
> chomp($ip);
> if ($ip =~ /\b\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\b/)
> {
> my $p = Net::Ping->new() or die "Can't create new ping object: $!\n";
> if ($p->ping($ip)) { print "$ip is alive"; $p->close; exit;} else {print
> "$ip is not alive";exit;}
> }
> else
> {
> $host=gethostbyname($ip);
> chomp($host);
> my $aip=inet_ntoa($host);
> my $p = Net::Ping->new() or die "Can't create new ping object: $!\n";
> if ($p->ping($aip)) {print "$aip is alive";} else {print "$aip is not
> alive";}
> $p->close;exit;
> }
> ------------------------------------------------------------------------
> If I run the code and ping www.yahoo.com, it resolves the hostname to
> ip, and then it says it is NOT alive.
> If I ping the same IP using the Ping utility, it is definitely replying.
> Whats wrong?
>
> C:\Documents and Settings\Gunnu\Desktop\Code\Gen 2>ping.pl
>
> Enter a hostname/IP www.yahoo.com
> 87.248.113.14 is not alive
>
> C:\ping 87.248.113.14
> Pinging 87.248.113.14 with 32 bytes of data:
> Reply from 87.248.113.14: bytes=32 time=188ms TTL=49
> Reply from 87.248.113.14: bytes=32 time=207ms TTL=49
Your code is poorly laid out - it is extremely difficult to spot an errors with
no whitespace and indenting.
Net::Ping tries to connect on the tcp echo port (port 7) by default, and many
commercial http servers won't respond on that port. Unforunately there isn't a
nice way to change the port number, so you have to mess with the object's
internals like this
my $p = Net::Ping->new;
$p->{port_num} = 80; # HTTP port number
then you should get a response from Yahoo.
HTH,
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
