# DB - Connect
my $hDB = DBI->connect( "dbi:Oracle:dbname", "dbusername", "dbuserpass
+wort", { AutoCommit => 0 } );
my $hStatement = $hDB->prepare("MY SQL HERE");
$hStatement->execute( );
while ( ( $var1, $var2, $var3) = $hStatement->fetchrow_array ){
push( @aRows, ( $var1, $var2, $var3 ) );
}
$hStatement->finish;
$hDB->disconnect;
print Dumper( @aRows );
output
$VAR1 = '11000530'; $VAR2 = '8041094A'; $VAR3 = 'Eingelesen'; $VAR4 =
+'09-JUL-15'; $VAR5 = '528';
Imo this shouldn't be interesting at all. The question is, how to access resultset when using joings on TT ... |