Ошибка Perl ping при первой попытке на RHEL - PullRequest
Новая
       19

Ошибка Perl ping при первой попытке на RHEL

0 голосов
/ 22 мая 2019 
#!/usr/bin/perl
use Net::Ping;

#Add dns to resolv.conf
#Modify nsswitch.conf

system("sync"); # in case of files are not written instantly

$p = Net::Ping->new(icmp);
my $main_ip="www.google.com";

if ($p->ping($main_ip)){
    $result=true;
    print "$main_ip is alive \n";
}else{
    print "$main_ip is down \n";
}

С первого раза я не могу пропинговать скрипт выше в RHEL. Когда я перезапускаю скрипт, он успешно пингуется.

Я пытался добавить задержку с помощью функции сна. или тайм-аут для новых и / или ping-функций, но он сразу же перестает работать сразу с первой попытки.

Есть идеи?

...