使用Perl選擇1從@ db_link其中db_link來自

Question

我想讀在Oracle表包含數據庫鏈接檢查每個數據庫鏈接的可用性和每個數據庫鏈接返回只有不好的結果的查找表的每個條目和錯誤消息。

欲該查找表中提取到一個數組，並且從dualQdb_link通過db_link的條目到選擇，測試查找的所有條目來測試的成功或失敗。這在perl中很難實現。

任何想法？

Answer 1

似乎很簡單，這樣的事情：

# Or whatever the column is really named ;) 
my $dblinks = $dbh->selectcol_arrayref("select dbname from db_link"); 

for my $dblink (@$dblinks) { 
    my $success = eval { 
    my ($ret) = $dbh->selectrow_array("select 1 from " 
     . $dbh->quote_identifier($dblink, undef, "dual")); 
    $ret; 
    }; 

    if ($success) { 
    say "$dblink is up"; 
    } else { 
    say "$dblink is down"; 
    } 
}