#!/usr/bin/perl

   ####
    ##
    ##
##  ##  $JOEY
 ####   2011.08.31.

use strict;
use Net::Ping;

################################################
# | DESCRIPTION:
# |     Test if host is reachable
# | USAGE:
# |     test_host_availability(<HOSTNAME>);
# | RESULTS:
# |     0 : HOST isn't reachable
# |     1 : HOST is reachable

    sub test_host_availability($) {
       my $thost = shift;
       my $tping = new Net::Ping("tcp");
       $tping->{port_num}=22;
       my $result = $tping -> ping($thost,2);    # Usage: ping(host,timeout)
       return $result;                           # Return 0 if host isn't reachable, return 1 if host is reachable
    }

# |
################################################

# e.g.:
# my $host = "hostname";
# chomp($host);
# if (test_host_availability($host)) {
#     print "$host is reachable\n";
# } else {
#     print "$host is not reachable\n";
# }

A bejegyzés trackback címe:

Kommentek:

A hozzászólások a vonatkozó jogszabályok  értelmében felhasználói tartalomnak minősülnek, értük a szolgáltatás technikai  üzemeltetője semmilyen felelősséget nem vállal, azokat nem ellenőrzi. Kifogás esetén forduljon a blog szerkesztőjéhez. Részletek a  Felhasználási feltételekben és az adatvédelmi tájékoztatóban.