使用perl腳本將日誌導出到Oracle SQL「更新」腳本的文本文件中

Question

我編寫了一個perl腳本，它連接到Oracle數據庫並更新數據。 perl腳本和連接到數據庫的執行工作正常。

但是，我想導出更新數據的日誌到一個臨時文本文件。請提出解決方案。下面是我的代碼，

use strict; 
use DBD::Oracle; 
use DBI; 

my $driver = "Oracle"; 
my $database = "host=xxxxx;port=xxx;sid=xxxx"; 
my $dsn = "DBI:$driver:$database"; 
my $userid = "xxxxxx"; 
my $password = "xxxxx"; 

# Database Connection 
my $dbh = DBI->connect($dsn, $userid, $password,{RaiseError => 1}) or die "Can't connect to the Database: $DBI::errstr"; 
my $sth = $dbh->prepare("UPDATE XXXX SET ABCD=1233 WHERE LOGIN BETWEEN SYSDATE-24*30 and SYSDATE-12*30") or die "$DBI::errstr"; 

$sth->execute() or die "couldn't execute statementn$!"; 
$sth->rows; 

# End of Program 
$sth->finish(); 
$dbh->disconnect(); 

Answer 1

我會建議更換

$sth->execute() or die "couldn't execute statementn$!"; 

通過

unless ($sth->execute()) { 
    open LOGFILE, ">>", /tmp/logs/perl.log or die "Could not open logfile\n";    
    print LOGFILE $ora->errstr; 
    close LOGFILE; 
    die "couldn't execute statementn$!"; 
}