perl - 如何使用perl将每个oracle错误消息的所有返回行转换为一个变量

Question

如何将"$dblink is down"的所有行合并为一个$l_msg字符串？

理想情况下，我想获取失败时oracle返回的错误，并且我看不到解决此问题的方法。

my $dblinks = $l_dbh->selectcol_arrayref("select dbname from db_link"); 
for my $dblink (@$dblinks) { 
  my $l_results = eval { 
    my ($l_erg) = $l_dbh->selectrow_array("SELECT dummy||'OK' " 
      . $l_dbh->quote_identifier($dblink, undef, "dual") ); 
    $l_erg; 
  }; 
   while (@l_row = $l_results->fetchrow_array) {
    $l_erg=$l_row[0];
    if ($l_results !~ /XOK/) { 
      @l_errstr=();
      l_msg="$dblink is down with @l_errstr"
      #  dblink45667 is down with ORA-12154"

    } else { 
      say "$dblink is is up"; 
    } 
  }
}

Answer 1

如何将它们串联到循环外的变量中:

my $dblinks = $l_dbh->selectcol_arrayref("select dbname from db_link"); 
my $l_msg = '';
for my $dblink (@$dblinks) { 
  my $l_results = eval { 
    my ($l_erg) = $l_dbh->selectrow_array("SELECT dummy||'OK' " 
      . $l_dbh->quote_identifier($dblink, undef, "dual") ); 
    $l_erg; 
  }; 
   while (@l_row = $l_results->fetchrow_array) {
    $l_erg=$l_row[0];
    if ($l_results !~ /XOK/) { 
      @l_errstr=();
      l_msg .= "$dblink is down with @l_errstr"
      #  dblink45667 is down with ORA-12154"

    } else { 
      say "$dblink is is up"; 
    } 
  }
}