如何将 sql perl 脚本日志错误传输到脚本日志文件。

Question

在这里，我尝试了上述分辨率，但需要帮助将屏幕上显示的警告转移到 perl 脚本日志文件中。

; 还请注意注释行，因为最后一块正在工作，但它显示了我所做的所有尝试，将屏幕警告从 orcale sql perl 脚本传输到日志文件但失败，需要帮助将这些警告也传输到日志文件中。

sub search_table()
{ my $dsn="dbi:Oracle:$database";
  my $dbh= DBI->connect($dsn,$oracle_user,$oracle_pwd,{AutoCommit => 1  
 # ,PrintError => 0,   ### Don't report errors via warn(  )
 # RaiseError => 1    ### Do report errors via die(  )
}) or die "Couldn't connect to the $database\n";



my $Query1= " delete from audit_t where object_id0 = $poid_id0";
my $sth = $dbh->prepare($Query1);
$sth->execute() or warn "Cannot RUN SQL for $poid_id0 in  file:$!\n" ;
#$sth->execute() or warn "Cannot RUN SQL for $poid_id0 in  file: $dbh->errstr  $DBI::errstr   $!\n" ;
#$sth->execute() or warn "Cannot RUN SQL for $poid_id0 in  file: $dbh->errstr \n" ;
#my $msg = $dbh->errstr ;
#print LOGFILE $Query1,$msg, "\n CCCCCCCCCCCCCCXXXXXXXXXXXXXXXX fetched ! \n";
print LOGFILE $Query1, "\n  fetched ! \n";

这里的日志文件显示为在此处输入图像描述

从 XXX 中删除 XX in (select XX from XXX where XXX= 900000009911x) 获取！

从 XXX 删除，其中 XXX= 900000009911x 提取！

#################################################脚本于 2022 年 1 月 25 日星期二 15:50:24 完成#################################### ############

屏幕显示：

开始 SQL 声明 STEP2

DBD::Oracle:: 执行失败：ORA-00933: SQL 命令未正确结束（DBD 错误：错误可能在字符 58 处的 <*> 指示符附近'删除...

文件中的 900000009911x 无法运行 SQL：