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

如何将"$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";
    }
  }
}

最佳答案

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

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";
    }
  }
}