without giving you the WHOLE answer, the following code will ping each IP address in the requested file and store the results in the array @results
Code:
#!/perl/bin/perl -w
use strict;
use Net::SMTP;
# get list of ip's to ping
open (PINGFILE, "< c:\\pinghosts.txt") or die "Can't open PingHost list: $!";
my @pinglist;
my @results;
my $holder;
while (my $line = <PINGFILE>) {
chomp $line;
# place the host ipaddress in the array @pinglist
push @pinglist, $line;
}
# now ping all machines
foreach my $host (@pinglist) {
# place results of ping in $holder
$holder = `ping $host`;
# place contents of $holder into the array @results
push @results, $holder;
}
NOTE: check the location of the file to open - I changed it for testing purposes.
I know how to ping in Perl. That is easy. What I am wondering is if there is a way for Perl to determine whether the ping was successful or not. Or do I need to save the results out and parse the results seperately looking for the #of tries and successful revieves.
Thanks. (1 Reply)
All
Please help, i will telnet to router to obain the ping status and compare, if higher than normal latency, i will have further action..
if i do the telent and in perl script then ....
e.g the result i obtain from the router will be =' Success rate is 100 percent (5/5), round-trip... (4 Replies)
Dear All
Any one able been writing any command ping in perl??basically i want to wring ping script to send 1000 packet ping then initiate "Ctrl C' terminal to ping example below:-]
#!/usr/local/bin/perl
$r=`/bin/ping 172.23.11.254`;
Thank You
---------- Post updated at 10:27 PM ----------... (2 Replies)
Hi,
I have this script in ksh, what it does is loop every ip in the nodes_nso and produced another variable up_nodes_nso of only ip's that are up.
nodes_nso=$(cat /var/tmp/nodes.txt)
echo "ICMP Tests:"
up_nodes_nso=""
for ip in ${nodes_nso} ; do
ping ${ip} 3 > /dev/null
if ; then
... (1 Reply)
Hi All
i have an issue with ping, we are using dhcp and so if the machine has been offline and i ping it, i get " ping: unknown host <hostname>
is there a way i can stick a loop somewhere so it would keep trying when it got the unknown host error and then when the machine came back online... (2 Replies)
Hi There
i have little situation that i could us some help with. We have a dhcp server, but the problem is if that a machine has been offline for a while it loose it's lease and so if you ping it you get unknown host
if there a way using perl that it will continue to try and ping it, even tho... (1 Reply)
Hi,
I develop simple animation ping script on Solaris Platform. It is like Cisco ping.
Examples and source code are below.
bash-3.00$ gokcell 152.155.180.8 30
Sending 30 Ping Packets to 152.155.180.8
!!!!!!!!!!!!!.!!!!!!!!!!!!!!!.
% 93.33 success... % 6.66 packet loss...... (1 Reply)
I have written perl ping program to ping list of IPs one by one and print the status.But each and every time it is showing the status as Pass for all IPs even though the IP is wrong.
multipleip.pl
use Net::Ping;
$p = Net::Ping->new();
$ifile="inventory.txt";
... (2 Replies)
Hi all,
I am using the below code to ping a code and print whehter the connection is successful or not.
use Net::Ping;
$p = Net::Ping->new();
my $host = "x.x.x.x";
# print "$host is alive.\n" if $p->ping($host);
if ($p->ping($host,3))
{
print... (0 Replies)
help with bash script!
im am working on this script to make sure my server will stay online, so i made this script..
HOSTS="192.168.138.155"
COUNT=4
pingtest(){
for myhost in "$@"
do
ping -c "$COUNT" "$myhost" &&return 1
done
return 0
}
if pingtest $HOSTS
#100% failed... (4 Replies)
Discussion started by: mort3924
4 Replies
LEARN ABOUT DEBIAN
macping
MACPING(1) General Commands Manual MACPING(1)NAME
macping - A tool for pinging other RouterOS or mactelnetd devices
SYNOPSIS
mactelnet [options] <MAC-Address|hostname>
DESCRIPTION
This tool enables you to ping other RouterOS or MAC-Telnetd enabled devices. You can ping either a hostname or a MAC address. If speci-
fied, the hostname (identity) will be looked up via MNDP discovery.
OPTIONS
These programs follow the usual GNU command line syntax. A summary of options is included below.
-f Fast mode, do not wait before sending next ping request. The next ping will be sent immediately when the last ping is received. This
cannot be used with -c 0
-s Specify the amount of bytes to send in each ping packet, up to ~1400 bytes.
-c Number of packets to send before exiting. A value of 0 means unlimited packets and the tool must be exited with Control + C.
-h Show summary of options.
-v Show version of program.
SEE ALSO mndp(1), mactelnet(1), mactelnetd(1).
AUTHOR
macping was written by Hakon Nessjoen <haakon.nessjoen@gmail.com>.
This manual page was written by Hakon Nessjoen <haakon.nessjoen@gmail.com>, for the Debian project (and may be used by others).
February 27, 2011 MACPING(1)
03-23-2003
