如何使用Perl :: Net :: Ping單線程來ping主機？

Question

嘗試將以下Perl單線程整合到shell腳本中。此代碼在Perl腳本中工作，但不能作爲從shell腳本執行的單行程序。

我試着用真正的主機名替換$host，但沒有運氣。

#!/bin/ksh 

hosts="host1 host2 host3" 

PERL=/usr/bin/perl 

# Check to see if hosts are accessible. 
for host in $hosts 
do 
    #echo $host 
    $PERL -e 'use Net::Ping; $timeout=5; $p=Net::Ping->new("icmp", $timeout) or die bye ; print "$host is alive \n" if $p->ping($host); $p->close;' 
done 

Answer 1

嘗試更換$host：

$PERL -e 'use Net::Ping; $timeout=5; $p=Net::Ping->new("icmp", $timeout) or die bye ; print "$host is alive \n" if $p->ping($host); $p->close;' 

與$ARGV[0]，第一個命令行參數：

$PERL -e 'use Net::Ping; $timeout=5; $p=Net::Ping->new("icmp", $timeout) or die bye ; print "$ARGV[0] is alive \n" if $p->ping($ARGV[0]); $p->close;' $host 

Answer 2

在外殼的單引號被解釋停止$主機。所以，你可以只是停止和重新啓動需要單引號：

perl -MNet::Ping -e 'if (Net::Ping->new("icmp", 5)->ping("'$host'")) {print "'$host' is alive\n"}' 

或者，您可以通過主機作爲一個參數 - 看對方的回答。

Answer 3

如果你想使用Perl，那麼使用Perl解釋器來運行你的腳本。

#!/usr/bin/env perl -w 
use Net::Ping; 
$timeout=5; 
$p=Net::Ping->new("icmp", $timeout) or die bye ; 
@hosts=qw/localhost 10.10.10.10/; 
foreach my $host (@hosts) { 
    print "$host is alive \n" if $p->ping($host); 
} 
$p->close; 

否則，你還不如直接你爲什麼用perl，而不是僅僅`ping`使用ping命令從shell

#!/bin/bash 
for hosts in host1 host2 host3 
do 
    if ping ...... "$hosts" >/dev/null ;then 
     ..... 
    fi 
done