Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl : code on ping showing difference result
Top Forums Shell Programming and Scripting Perl : code on ping showing difference result Post 302766693 by scriptscript on Tuesday 5th of February 2013 06:57:28 AM
Old 02-05-2013
Perl : code on ping showing difference result
Hi all,

I am using the below code to ping a code and print whehter the connection is successful or not.
Code:
    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 "success";
    }
    else
    {
         print "Fail";
    }     
    $p->close();

For one IP address.. I received the status as "Fail" . But when tried using start->run-> cmd ->ping ipaddress .. the ping is successful.

COuld you let me know any other alternative code to ping the device.

---------- Post updated at 06:57 AM ---------- Previous update was at 06:50 AM ----------

Hi all,

I am using the below code to ping a code and print whehter the connection is successful or not.
Code:
    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 "success";
    }
    else
    {
         print "Fail";
    }     
    $p->close();

For one IP address.. I received the status as "Fail" . But when tried using start->run-> cmd ->ping ipaddress .. the ping is successful.

COuld you let me know any other alternative code to ping the device.
 

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

PERL: ping and e-mail

I need a script to open a text file with ip's in it, ping them, split the results into the ip and time from the results and e-mail them ? here what i've done. its porbly wrong and not workin.its for win nt4 use Net::SMTP; # get list of ip's to ping open (PINGFILE, "< c:\\Documents and... (20 Replies)
Discussion started by: perleo
20 Replies

2. Shell Programming and Scripting

defined value not showing....in the result

Hi, PLMN=APPLE awk ' /is missing/ { flag=1;print > "fruit_output_m1.txt" } END { if( flag != 1 ) print "No $PLMN in the store." > "fruit_output_n1.txt" } ' fruit_result.txt The output is: No $PLMN in the store. Should be: No APPLE in the store. Please help!! (1 Reply)
Discussion started by: happyv
1 Replies

3. Shell Programming and Scripting

Help with showing the difference in two lines of input

I would like my script to be able to tell the difference between to lines of input, like: Input 1: 1 2 3 4 5 Input 2: 1 2 3 4 5 6 I want the script to tell me that the difference between the two lines is the 6. Is there anyway I can have it do this? Here's an example of what my script... (12 Replies)
Discussion started by: Kweekwom
12 Replies

4. Shell Programming and Scripting

perl ping script

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)
Discussion started by: netxus
2 Replies

5. Programming

Perl Ping Loop

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)
Discussion started by: ab52
2 Replies

6. Shell Programming and Scripting

Ping and Perl

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)
Discussion started by: ab52
1 Replies

7. Solaris

solaris link aggregation problem , once i reboot it is not showing, not able to ping the default gat

Hi All, I am trying to aggregate the NIC's,(igb2 and igb3) (igb0 is used by the physical system and igb1 is used by primary-vsw0) to create the domains on that for faster data transfer, I followed the process for creating the aggregation, dladm create-aggr -d igb2 -d igb3 1 after creating the... (2 Replies)
Discussion started by: buildscm
2 Replies

8. Shell Programming and Scripting

Ping result talking too long

Hello all, I am writing a script that pings various machines to check connectivity. If a machine is available, the prompt returns a result immediately: root@ops # ping 172.21.5.5 172.21.5.5 is alive BUT if a machine is Down , the reply takes a long time to come. The issue is I want to... (1 Reply)
Discussion started by: Junaid Subhani
1 Replies

9. Shell Programming and Scripting

Ssh on ping result?

I still haven't had chance to read the entire Debian manual, which I promise I will do as soon as I can, and I will start putting info back into this forum. However, for the mean time, could someone please help with a small script? I understand what I've got to do and how to do it, but I'm... (13 Replies)
Discussion started by: MuntyScrunt
13 Replies

LEARN ABOUT CENTOS

ocf_pacemaker_ping

OCF_PACEMAKER_PING(7)					      Pacemaker Configuration					     OCF_PACEMAKER_PING(7)

NAME

       ocf_pacemaker_ping - node connectivity

SYNOPSIS

       [OCF_RESKEY_pidfile=string] [OCF_RESKEY_dampen=integer] [OCF_RESKEY_name=string] [OCF_RESKEY_multiplier=integer]
       [OCF_RESKEY_host_list=string] [OCF_RESKEY_attempts=integer] [OCF_RESKEY_timeout=integer] [OCF_RESKEY_options=string]
       [OCF_RESKEY_failure_score=integer] [OCF_RESKEY_debug=string] ping [start | stop | reload | monitor | meta-data | validate-all]

DESCRIPTION

       Every time the monitor action is run, this resource agent records (in the CIB) the current number of ping nodes the host can connect to. It
       is essentially the same as pingd except that it uses the system ping tool to obtain the results.

SUPPORTED PARAMETERS

       OCF_RESKEY_pidfile = string [/ping-]
	   PID file

       OCF_RESKEY_dampen = integer [5s]
	   Dampening interval

	   The time to wait (dampening) further changes occur

       OCF_RESKEY_name = string [pingd]
	   Attribute name

	   The name of the attributes to set. This is the name to be used in the constraints.

       OCF_RESKEY_multiplier = integer []
	   Value multiplier

	   The number by which to multiply the number of connected ping nodes by

       OCF_RESKEY_host_list = string []
	   Host list

	   The list of ping nodes to count.

       OCF_RESKEY_attempts = integer [2]
	   no. of ping attempts

	   Number of ping attempts, per host, before declaring it dead

       OCF_RESKEY_timeout = integer [2]
	   ping timeout in seconds

	   How long, in seconds, to wait before declaring a ping lost

       OCF_RESKEY_options = string []
	   Extra Options

	   A catch all for any other options that need to be passed to ping.

       OCF_RESKEY_failure_score = integer []
	   failure_score

	   Resource is failed if the score is less than failure_score. Default never fails.

       OCF_RESKEY_debug = string [false]
	   Verbose logging

	   Enables to use default attrd_updater verbose logging on every call.

AUTHOR

       Andrew Beekhof <andrew@beekhof.net>
	   Author.

Pacemaker Configuration 					    06/10/2014						     OCF_PACEMAKER_PING(7)
All times are GMT -4. The time now is 06:17 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy