在perl中登錄驗證

Question

我在perl腳本中運行以下代碼行以查找遠程計算機的df輸出。這工作正常，收集信息在@df_ret直到ssh密鑰是最新的。如果公衆被損壞或更改，它不會在腳本中顯示任何錯誤跡象。如果我手動運行，那麼我會被要求輸入密碼。

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

有沒有什麼辦法可以驗證，如果ssh登錄成功，那麼這個Perl腳本行應該執行其他的不行。找到了很多搜索，但無法找到ONE。任何幫助？

Answer 1

我有一個解決方案如下工作; ！ ＃在/ usr/local/bin中/ 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;