ssh проверка входа в perl

Question

Я запускаю следующие строки кода в perl-скрипте, чтобы найти выход df удаленных машин. это прекрасно работает и собирает информацию в @df_ret до тех пор, пока ключ ssh не будет отменен. если общественность повреждена или изменена, то она не показывает никаких признаков ошибки в скрипте. если я буду запускать вручную, тогда меня попросят ввести пароль.

@df_ret = split /\n/, `ssh -q $server 'df -hP'`; 

Есть ли способ, я могу проверить, что если SSH Войти успешно, то этот скрипт на Perl строка должна быть выполнена еще нет. находил много поисков на нем, но не мог добраться до ОДНОГО. любая помощь?

Answer 1

У меня одно решение работает, как показано ниже; ! #/USR/местные/бен/Perl

my $line = `ssh $server -o 'BatchMode=yes' -o 'ConnectionAttempts=1' true`; 
my $error = `echo $?`; 

print "Error = $error"; 

if($error == 0) 
{ 
    print "This is good"; 
    @df_ret = split /\n/, `ssh -q $server 'df -hP'`; 
} 
else 
{ 
    print "This is bad"; 
} 

Answer 2

Проверить результат ssh Exec перед разбиением его:

$text = `ssh -q $server 'df -hP'` or die "unable to ssh\n"; 
@df_ret = split /\n/, $text;