Though you have to be careful about (so maybe it is best to add the "or die" regardless)...(and I say this because I've done nearly this, and not yet learned from my mistake):use strict; use warnings; use DBI; my $dbh = DBI->connect('dbi:Oracle:xxxReal_databasename', 'xxxReal_use +r', 'bad_pasword', { PrintError => 0, RaiseError => 1, }); print "Got Here\n"; $dbh->disconnect(); OUTPUT: > ./tst DBI connect('XXXXX','XXXXX',...) failed: ORA-01017: invalid username/p +assword; logon denied (DBD ERROR: OCISessionBegin) at ./tst line 8
use strict; use warnings; use DBI; my $dbh = DBI->connect('dbi:Oracle:xxxReal_databasename', 'xxxReal_use +r', 'bad_pasword', { PrintError => 0, RaizeError => 1, }); print "Got Here\n"; $dbh->disconnect(); OUTPUT: > ./tst Got Here Can't call method "disconnect" on an undefined value at ./tst line 16.
In reply to Re^4: Having issues with DBI
by runrig
in thread Having issues with DBI
by zoophagous
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |