1 use DBI;
      2 use diagnostics;
      3 use strict;
      4 #use DBD::Oracle;
      5
      6 my($dbh,$dbuser,$dbpass,$SEL,$sth,$db);
      7
      8 $dbh = DBI->connect("dbi:Oracle:host=192.168.0.10", $dbuser, $dbpass)|| die "$!";
      9
     10 $db->{AutoCommit}    = 0;
     11
     12 $db->{RaiseError}    = 1;
     13
     14 $db->{ora_check_sql} = 0;
     15
     16 $db->{RowCacheSize}  = 16;
     17
     18 $SEL = "SELECT * FROM HR";
     19 $sth = $db->prepare($SEL);
     20 $sth->execute();
     21
     22 while ( my @row = $sth->fetchrow_array() ) {
     23     foreach (@row) {
     24         $_ = "\t" if !defined($_);
     25         print "$_\t";