Perl不使用套接字的服务器连接

Question

我需要使用Perl从另一台服务器连接到服务器。我不需要套接字连接，只是测试连接以确保我可以打开它。寻找任何想法怎么做？

Answer 1

也许是一个好的开始？

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