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?
The ping program will first try to use the 'icmp' protocol on port 7 and
if you are not logged in as root will then try the 'tcp' protocol on a
different port.
Try it with the HTTP port:
#!/usr/bin/perl
use strict;
use warnings;
use Socket;
use Net::Ping;
print 'Enter a hostname/IP ';
chomp( my $input = <STDIN> );
my $ip = inet_ntoa inet_aton $input;
my $p = Net::Ping->new() or die "Can't create new ping object: $!\n";
$p->port_number( 80 ); # HTTP port
print "$ip is ", $p->ping( $ip ) ? '' : 'not ', "alive\n";
$p->close;
__END__
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
