Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

Re: Ping a Server

by AcidHawk (Vicar)
on Apr 28, 2004 at 08:25 UTC ( #348751=note: print w/replies, xml ) Need Help??

in reply to Ping a Server

What have you tried?

What does your list of servers look like?

Post some code so we can look and make suggestions.

Update: Assuming you file has a server name on each line try the following..

  • open the Server List file
  • read in line by line
  • for each line/servername ping the server (either OS ping with $result = `ping $_`;then do some regex on the $result or look at Net::Ping)
  • close Server List file
  • The code below works for me using Net::Ping PS I havent done the open file and read in a list etc.

    #! /usr/bin/perl use strict; use warnings; use Net::Ping; my ($host,$rtt,$ip); my @host_array = ("OSSTNGMCN01", "OSSTNGMCN04", "PROJECTX99"); my $p = Net::Ping->new("syn"); $p->{port_num} = getservbyname("http", "tcp"); foreach $host (@host_array) { $p->ping($host); } while (($host,$rtt,$ip) = $p->ack) { print "HOST: $host [$ip] ACKed in $rtt seconds.\n"; }
    Of all the things I've lost in my life, its my mind I miss the most.

    Log In?

    What's my password?
    Create A New User
    Node Status?
    node history
    Node Type: note [id://348751]
    [LanX]: yes, test passed :)
    [sierpinski]: woo hoo! you can go home for the day now
    [Eily]: does this mean you'll give up the random prefix solution LanX?
    [LanX]: yep, sorry ;(
    [Eily]: such a fine and clever workaround though...
    [LanX]: well even my random fingers have memory ...
    [Eily]: you could have tried randomly swapping your fingers
    [Eily]: enigma style
    [choroba]: so it was you who typed the whole phrases?

    How do I use this? | Other CB clients
    Other Users?
    Others musing on the Monastery: (13)
    As of 2017-03-28 13:01 GMT
    Find Nodes?
      Voting Booth?
      Should Pluto Get Its Planethood Back?

      Results (331 votes). Check out past polls.