Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Net::Ping & Net::DNS help 2
- Thread starter mackiew
- Start date
-
2
- #2
Hi mackiew,
Did you have a specific question? [sig]<p>Mike<br><a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a><br><a href= Cargill's Corporate Web Site</a><br>Making mistakes, so you don't have to. <grin>[/sig]
Did you have a specific question? [sig]<p>Mike<br><a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a><br><a href= Cargill's Corporate Web Site</a><br>Making mistakes, so you don't have to. <grin>[/sig]
- Thread starter
- #3
- Thread starter
- #4
are you having trouble posting mack? [sig]<p>Mike<br><a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a><br><a href= Cargill's Corporate Web Site</a><br>Making mistakes, so you don't have to. <grin>[/sig]
try this:
use strict;
use Net:
ing;
my $p;
my $host = '
$p = Net:ing->new('icmp');
if($p->ping($host)){
print "$host is reachable.\n";
} else {
print "$host is not reachable.\n";
}
$p->close();
I found that if you specify the icmp protocol (that's the standard ping protocol anyway) it works fine. [sig]<p>Mike<br><a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a><br><a href= Cargill's Corporate Web Site</a><br>Making mistakes, so you don't have to. <grin>[/sig]
use strict;
use Net:
ing;my $p;
my $host = '
$p = Net:
ing->new('icmp');if($p->ping($host)){
print "$host is reachable.\n";
} else {
print "$host is not reachable.\n";
}
$p->close();
I found that if you specify the icmp protocol (that's the standard ping protocol anyway) it works fine. [sig]<p>Mike<br><a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a><br><a href= Cargill's Corporate Web Site</a><br>Making mistakes, so you don't have to. <grin>[/sig]
- Thread starter
- #7
How to use Net:ing module??
I do :
use Net:ing
$p = Net:ing->new("tcp"
print "$host is alive.\n" if $p->ping($host);
$p->close();
with a reacheable $host and not print "$host is alive"
in a Linux S.O.
What must be $host?
$host = 126.73.100.100 or $host = "126.73.100.100"
or $host = 12673100100 or etc.....
I need that $host be IP address, and message "tcp"
I´m beginner whit Perl, but not beginer programmer and need
work with this modules, help please.
Thanks [sig][/sig]
ing module??I do :
use Net:
ing$p = Net:
ing->new("tcp"print "$host is alive.\n" if $p->ping($host);
$p->close();
with a reacheable $host and not print "$host is alive"
in a Linux S.O.
What must be $host?
$host = 126.73.100.100 or $host = "126.73.100.100"
or $host = 12673100100 or etc.....
I need that $host be IP address, and message "tcp"
I´m beginner whit Perl, but not beginer programmer and need
work with this modules, help please.
Thanks [sig][/sig]
- Thread starter
- #8
Yeah.... From perldoc Net:ing ...
"Specifying the "icmp" protocol requires that the program be run as root or that the program be setuid to root."
I didn't pick that up before because I was running in under ActivePerl at home on Win98...
Also from perldoc Net:ing is:
"The icmp protocol requires that the program be run as root or that it be setuid to root. The tcp and udp protocols do not require special privileges, but not all network devices implement the echo protocol for tcp or udp."
This just doesn't seem a reliable way to do things... Can't you run the command as root or call the unix ping command directly? [sig]<p>Mike<br><a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a><br><a href= Cargill's Corporate Web Site</a><br>Making mistakes, so you don't have to. <grin>[/sig]
ing ..."Specifying the "icmp" protocol requires that the program be run as root or that the program be setuid to root."
I didn't pick that up before because I was running in under ActivePerl at home on Win98...
Also from perldoc Net:
ing is:"The icmp protocol requires that the program be run as root or that it be setuid to root. The tcp and udp protocols do not require special privileges, but not all network devices implement the echo protocol for tcp or udp."
This just doesn't seem a reliable way to do things... Can't you run the command as root or call the unix ping command directly? [sig]<p>Mike<br><a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a><br><a href= Cargill's Corporate Web Site</a><br>Making mistakes, so you don't have to. <grin>[/sig]
- Thread starter
- #10
I can't run the command as root, but I can call the linux ping directly . How do it?
You know what parameter $host must be ?
On "tcp" mode
if i do $host = ' it work fine, but
if i do $host = '164.73.100.5' or $host = 164.73.100.5 don't work
I'm waiting you help
Thank you
[sig][/sig]
You know what parameter $host must be ?
On "tcp" mode
if i do $host = ' it work fine, but
if i do $host = '164.73.100.5' or $host = 164.73.100.5 don't work
I'm waiting you help
Thank you
[sig][/sig]
Hi Mac,
[tt]
$host='164.73.100.5';
open(PING,"/etc/ping $host|" || die;
while(<PING>){
[tab]print;
}
[/tt]
This will run the ping command and feed the results into your Perl script throught the PING handle [sig]<p>Mike<br><a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a><br><a href= Cargill's Corporate Web Site</a><br>Making mistakes, so you don't have to. <grin>[/sig]
[tt]
$host='164.73.100.5';
open(PING,"/etc/ping $host|"
|| die;while(<PING>){
[tab]print;
}
[/tt]
This will run the ping command and feed the results into your Perl script throught the PING handle [sig]<p>Mike<br><a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a><br><a href= Cargill's Corporate Web Site</a><br>Making mistakes, so you don't have to. <grin>[/sig]
- Thread starter
- #12
Hi Mike I'm going to cosidere your example, but I want
show you my case before to leave Net:ing module.
$host = '$p = Net:ing->new("tcp"
print "$host is alive.\n" if $p->ping($host);
$p->close();
it work fine
I do:
$host = '164.73.155.20'
$p = Net:ing->new("tcp"
print "$host is alive.\n" if $p->ping($host);
$p->close();
it not work. Why?
What I'm doing wrong?
Your simpler method don´t work.
I´m waiting your help
You win my vote !
Thank you.
[sig][/sig]
show you my case before to leave Net:
ing module.$host = '$p = Net:
ing->new("tcp"print "$host is alive.\n" if $p->ping($host);
$p->close();
it work fine
I do:
$host = '164.73.155.20'
$p = Net:
ing->new("tcp"print "$host is alive.\n" if $p->ping($host);
$p->close();
it not work. Why?
What I'm doing wrong?
Your simpler method don´t work.
I´m waiting your help
You win my vote !
Thank you.
[sig][/sig]
Hmmm,
well.. thanks for your confidence (and your vote) but I'm afraid I'm stumped....
does the IP address method work with udp? [sig]<p>Mike<br><a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a><br><a href= Cargill's Corporate Web Site</a><br>Making mistakes, so you don't have to. <grin>[/sig]
well.. thanks for your confidence (and your vote) but I'm afraid I'm stumped....
does the IP address method work with udp? [sig]<p>Mike<br><a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a><br><a href= Cargill's Corporate Web Site</a><br>Making mistakes, so you don't have to. <grin>[/sig]
- Thread starter
- #14
- Status
