Exporter les journaux dans un fichier texte pour Oracle SQL "mise à jour" script en utilisant le script Perl

Question

J'ai codé un script perl qui se connecte à la base de données Oracle et met à jour les données. L'exécution du script perl et des connexions à la base de données fonctionne correctement. Mais, je veux exporter les journaux des données mises à jour dans un fichier texte temporaire. S'il vous plaît proposer une solution. Voici mon code,

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

Je propose de remplacer

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

par

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