如何使用Net :: Ping使用Perl单线程来ping主机？

尝试将以下Perl one-liner集成到 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

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