RE: Perl Issues

From: "Jeremiah Wilton" <jeremiah@xxxxxxxxxxx>
To: <JApplewhite@xxxxxxxxxxxxx>, <oracle-l@xxxxxxxxxxxxx>
Date: Thu, 21 Feb 2008 14:39:12 -0800

JApplewhite@xxxxxxxxxxxxx wrote:

> 1.  Can Exception Handling be easily done in Perl?  If so, any good
examples I can point them to? 

Yes.

use DBI;
my $dbh = DBI->connect(
                        'dbi:Oracle:','', '',
                        { ora_session_mode => 2, # / as sysdba
                          PrintError => 0  #Suppresses the automatic error
reporting to STDERR
                        }
) or die "Cannot connect: $DBI::errstr\n";

my $sth = $dbh->prepare(
                        "select foo from bar"
                        ) or print "Caught an exception preparing the
cursor: $DBI::errstr\n";
print "Duh, I'm still alive!  Now I can do something since I know I caught
an error\n";

$dbh->disconnect;

Regards,

Jeremiah Wilton
ORA-600 Consulting
http://www.ora-600.net

--
http://www.freelists.org/webpage/oracle-l

References:

RE: Flashback database versus RMAN
From: Jeremiah Wilton

Perl Issues
From: JApplewhite

RE: Perl Issues

Other related posts: