Perlとのサーバ接続がソケットを使用していない[閉じる] - perl、networking

Perlを使用して別のサーバーからサーバーに接続する必要があります。ソケット接続は必要ありません。接続をテストするだけで、接続を開くことができます。方法をお探しですか？

回答：

たぶん良いスタート？

perl -le "
system("ping -c1 $ARGV[0] &>/dev/null");
if ($? == 0) {
print "Remote is pingable"
}
else{
print "Remote non pingable"
}
" google.com

または三項演算子を使用して：

perl -le "
print system("ping -c1 $ARGV[0] &>/dev/null") ?
"Remote non pingable" : "Remote is pingable"
" google.com