pingip.pl

来自「在linux偵測主機是否當機或關機」· PL 代码 · 共 13 行

#! /usr/bin/perl

use Net::Ping;

my $p  = Net::Ping->new('icmp');
@HOST=('192.168.1.160','192.168.1.161','192.168.1.162');
my $hostname;
my $i;
for ($i=0;$i<=$#HOST;$i++){
     my $result=$p->ping($HOST[$i],1);
     if ($result==0){
         if ($HOST[$i] eq '192.168.1.160'){
             $hostname="