Help for this page

Select Code to Download


  1. or download this
    use DBI;
eval {
...
if ($@) {
   print "$@\n";
}
  2. or download this
    # perl test.pl
DBI connect('dev','user',...) failed: ORA-01017: invalid username/pass
+word; logon denied (DBD: login failed) at test.pl line 5
  3. or download this
    use DBI;

...
if ($@) {
   print "$@\n";
}
  4. or download this
    # perl test.pl
my die at test.pl line 5.