Oracle und Perl mit dem Datenbank Interface (DBI)

Ein kleines Beispiel, wie mit Perl und dem Datenbank Interface (DBI) sehr einfach auf Oracle zu gegriffen werden kann.

# perl
use strict;
use DBI;
my $dbh = DBI->connect( ‚dbi:Oracle:ORA11G‘,
                        ‚test‘,
                        ‚test123‘,
                        { RaiseError => 1, AutoCommit => 0 }
                      ) || die „Database connection not made: $DBI::errstr“;

#————————————————————————–
# doing in DB
#————————————————————————–

my $sql = qq{ ALTER SESSION set NLS_DATE_FORMAT = ‚DD.MM.YYYY HH24:MI:SS‘ };    # session date format
my $sth = $dbh->prepare($sql);
$sth->execute();
$sth->finish();                           # cursor schliesen

my $sql = qq{ select user, sysdate from dual };    # SELECT
my $sth = $dbh->prepare($sql);
$sth->execute();

my($user,$sysdate);                     # Deklaration
$sth->bind_columns(undef, \$user, \$sysdate);

print „Ergebnis von SQL: $sql\n\n“;              # Daten holen
while( $sth->fetch() ) {
    print „Username: $user Datum: $sysdate\n“;
}
$sth->finish();                           # cursor schliesen

#————————————————————————–
# ENDE
#————————————————————————–

$dbh->disconnect;

Output:
Ergebnis von SQL:  select user, sysdate from dual
Username: TEST Datum: 16.01.2012 22:44:35