sample code:------------
use DBI;
use DBD::Oracle qw(
ra_types);
my $dbh = DBI->connect( "dbi:Oracle:SILAB", "tdbu01", "tdbu01",@t1)
|| die( $DBI::errstr . "\n" );
my $sth = $dbh->prepare( "SELECT * FROM employee" )
or die "Can't prepare SQL statement: $DBI::errstr\n";
$sth->execute
or die "Can't execute SQL statement: $DBI::errstr\n";
my @row;
while ( @row = $sth->fetchrow_array( ) ) {
print "Row: @row\n";
}
the problem is not in this code as it works fine with perl 5.10.
But as I wrote my complete code for 5.6(as already mentioned using module Tk not Tkx for GUI interface), I want to hit the database using 5.6 only.
Advance Thanks for your suggestions