Help for this page

Select Code to Download


  1. or download this
    perl -e 'use DBI;$h = DBI->connect("dbi:Oracle:","xxx","yyy");my $r = 
+$h->selectrow_arrayref("select 1 from dual where 1=0");use Data::Dump
+er;print Dumper($r);'

$VAR1 = undef;
  2. or download this
    perl -e 'use DBI;$h = DBI->connect("dbi:Oracle:","xxx","xxx",{RaiseErr
+or => 0,PrintError => 0});my $r = $h->selectrow_arrayref("select 1 fr
+om dualxx");use Data::Dumper;print Dumper($r);'

$VAR1 = undef;
  3. or download this
    perl -e 'use DBI;$h = DBI->connect("dbi:Oracle:","xxx","xxx",{RaiseErr
+or => 1,PrintError => 0});my $r; eval{$r = $h->selectrow_arrayref("se
+lect 1 from dualxx")};if ($@) { print "Error $@ and DBI err is $DBI::
+err";} else {use Data::Dumper;print Dumper($r);}'