[ASK] How to check whether ipv4 or ipv6 and ping those IP Post: 302531481

Sponsored Content

Top Forums Shell Programming and Scripting [ASK] How to check whether ipv4 or ipv6 and ping those IP Post 302531481 by franzramadhan on Friday 17th of June 2011 02:19:14 AM

06-17-2011

Registered User

[ASK] How to check whether ipv4 or ipv6 and ping those IP

I have perl script that I use to check and ping a list of ip,
The problem is, I didnt understand how to ping ipv6 on perl,
Could I use Ping::External??And how could I get the ping result (reply or not)?

This is my code

Code:

#!/usr/bin/perl --
use Net::Ping;
use Data::Validate::IP;
use Time::HiRes;
$own       = qx(perl /opt/probing/cekip.pl);
$ownhost   = hostname;
@host      = $ARGV[0];
for ( $x = 1 ; $x <= 49 ; $x++ ) {
    $time = [Time::HiRes::gettimeofday];
    $starttime =
      Time::HiRes::tv_interval( $time, [Time::HiRes::gettimeofday] ) * 1000;
    $ping = Net::Ping->new("icmp");
    $endtime =
      Time::HiRes::tv_interval( $time, [Time::HiRes::gettimeofday] ) * 1000;
    $waktu  = $endtime - $starttime;
    $waktu1 = $waktu1 + $waktu;
    foreach $host2 (@host) {
        if ( is_ipv4($host2) ) {
            unless ( $ping->ping($host2) ) {
                    #print "error:$host", scalar(localtime), "\n";
                $lost = $lost + 1;
            }
            else {

                #print "success:$host", scalar(localtime), "\n";
                $lost    = 0;
                $sent    = $x;
                $receive = $receive + 1;
                if ( $waktu > $max1 ) {
                    $max1 = $waktu;
                    $max = sprintf( "%.2f", $max1 );
                }
                if ( $waktu < $min1 ) {
                    $min1 = $waktu;
                    $min = sprintf( "%.2f", $min1 );
                }
            }
        }
        if ( is_ipv6($host2) ) {
           // Still Blank Here..
            }
        }

Thanks in advance,
Franz

Last edited by franzramadhan; 06-17-2011 at 04:03 AM..

franzramadhan

View Public Profile for franzramadhan

Find all posts by franzramadhan

9 More Discussions You Might Find Interesting

1. UNIX for Advanced & Expert Users

convert from ipv4 to ipv6

hello i'm working on aix 5300-05-03 hacmp ver 5.4 well my issue is that when firewall (gateway to internet ) goes down my machine start to work very very slowly!!! the output of the sniffer is that on the output card , my machine try to convert ipv4 to ipv6 0.0.2.0 my machine is not configure...

2. AIX

convert ipv4 ti ipv6

hello i'm working on AIX 5300-05-03 P520 hacmp 5.4 when connection to the internet is going down , firewall down, my application work verey verey slowly!!! and on the sliffer output i'm got trys of my serevr to do convert from ipv4 ipv6 ( 0.0.2.0 and AAAAAAAA). some one have an idea why...

3. IP Networking

How to configure Samba 3 for IPv6 operation with Window XP for IPv4

Need help...! I want to configure Samba 3 for IPv6 operation with Window XP for IPv4. I appreciate any guide. Thanks HSV

4. Solaris

(Help) IPv6 tunneling over existing IPv4 in Solaris

Hi folks, i hope you'll help me to configure my ipv6 tunnel. First, i create my tunnel in: Hurricane Electric Free IPv6 Tunnel Broker My IP is 83.228.93.34 in HE: ------------------------ Server IPv4 address: 216.66.84.46 Server IPv6 address: 2001:470:1f14:16a::1/64 Client IPv4 address: ...

5. Red Hat

IPv4 and IPv6 Related Question to CentOS VMs

Hello, I was wondering if it would be possible to run two VMs one with services for IPv4 and the other one with services for IPv6. The main physical system would be connected to a IPv6 switch. I think it should be fine but I would like to hear out your comments.

6. Solaris

ISC DHCP ipv4 and ipv6 options

Hi I am looking to set-up ISC DHCP to support ipv6, and to migrate my existing SUN DHCP ipv4 to ISC, finding the ipv4 options for the SUN DHCP options was ok eg TFTPsrvN = tftp-server-name OptBootF = bootfile-name However if I set up a DHCPv6 does anyone know what the equivalent...

7. AIX

IPv6/IPv4 Only in AIX

Hi all, I have setup ipv6 in AIX machine using autoconf6 command. I was successfull in doing this. after execution of the command local link address was assigned to one of the interfaces (en1).But I have to setup the following environment as well. 1) Machine with only IPv6 support(IPv4...

8. Solaris

Ntp between ipv4 and ipv6

Hi, I am looking for a solution to configure ntp between ipv4 ( ntp server ) to ipv6 ( client) . I had google, but lot many sites suggest to have dual stock or tunnaling. my issue is I have client has only ipv6 address ans server has ipv4 address. is it possible to sync time,...

9. Solaris

How to assign IPv4 and IPv6 addresses with same interface?

Hello dears how to assign IPv4 and IPv6 addresses with same interface on solaris 10

LEARN ABOUT DEBIAN

ocf_pacemaker_pingd

OCF_PACEMAKER_PINGD(7)					      Pacemaker Configuration					    OCF_PACEMAKER_PINGD(7)

NAME

       ocf_pacemaker_pingd - pingd resource agent

SYNOPSIS

       [OCF_RESKEY_pidfile=string] [OCF_RESKEY_user=string] [OCF_RESKEY_dampen=integer] [OCF_RESKEY_set=string] [OCF_RESKEY_name=string]
       [OCF_RESKEY_section=string] [OCF_RESKEY_multiplier=integer] [OCF_RESKEY_host_list=string] [OCF_RESKEY_interval=integer]
       [OCF_RESKEY_attempts=integer] [OCF_RESKEY_timeout=integer] [OCF_RESKEY_options=string]

       pingd [start | stop | monitor | meta-data | validate-all]

DESCRIPTION

       This agent (ocf:pacemaker:pingd) has been replaced by the more reliable ocf:pacemaker:ping. It records (in the CIB) the current number of
       ping nodes (specified in the 'host_list' parameter) a cluster node can connect to.

SUPPORTED PARAMETERS

       OCF_RESKEY_pidfile = string [/pingd-]
	   PID file

       OCF_RESKEY_user = string [root]
	   The user we want to run pingd as

	   The user we want to run pingd as

       OCF_RESKEY_dampen = integer [5s]
	   Dampening interval

	   The time to wait (dampening) further changes occur

       OCF_RESKEY_set = string []
	   Set name

	   The name of the instance_attributes set to place the value in. Rarely needs to be specified.

       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_section = string []
	   Section name

	   The section place the value in. Rarely needs to be specified.

       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. Defaults to all configured ping nodes. Rarely needs to be specified.

       OCF_RESKEY_interval = integer [1]
	   ping interval in seconds

	   How often, in seconds, to check for node liveliness

       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 pingd.

AUTHOR

       Andrew Beekhof <andrew@beekhof.net>
	   Author.

Pacemaker Configuration 					    04/17/2012						    OCF_PACEMAKER_PINGD(7)