Підключення сервера з Perl без використання Socket [closed] - 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