ошибка Net SSH Perl пытается использовать код выхода

Question

КОД

#!/usr/bin/perl -w 
use strict; 
use warnings; 
use Net::SSH::Perl; 

my $ssh_to="10.1.1.9"; 
my @KEYFILE = ("/home/nagios/.ssh/id_dsa.pub"); 
my $local="10.1.1.5"; 
my $vip_ip="10.1.1.50:80"; 

my $remove = "/usr/bin/sudo /sbin/ipvsadm -e -t $vip_ip -r $local -w 0"; 
my $ssh = Net::SSH::Perl->new($ssh_to, identity_files=>\@KEYFILE); 
my ($stdout, $stderr, $exit) = $ssh->cmd($remove); 
if ($exit eq 0) { sleep(300); } 

ВЫВОД

[root@host]# ./mytest.pl
 
Use of uninitialized value in string eq at ./mytest.pl line 14, <GEN0> line 1

Answer 1

В Perl'е, эк для строк, == для чисел, просто FYI!

Вы получаете ошибку, потому что $ exit не определен.

Попробуйте этот тест:

if (defined($exit) && ($exit== 0)) { 
    sleep(300); 
} 

Это будет игнорировать не-ошибки ($ выход есть UNDEF) и будет спать, когда есть $ выход = 0

Теперь, почему вы пытаетесь поймать выход 0 и почему вы спите, когда это происходит?