Conectar Perl y Oracle

Pues esto de conectar varios lenguajes con Oracle como que ya se puso de moda,jajjajaja
a diferencia de la conexión de PHP y Oracle, la conexión con Perl es muy sencilla.

Primero q nada DBI, ya debe estar instalado, que seguramente lo esta lo checamos con este comando:

perl -e 'use DBI; print $DBI::VERSION,"\n";'

Bien ahora conseguimos el modulo DBD:Oracle, lo descomprimimos y ejecutamos:

perl Makefile.PL (asegurate de tener seteadas las varibles ORACLE_HOME y LD_LIBRARY_PATH)
make
make install

y listo!!!
Hacemos un sencillo script, para ver q todo furule


#!/usr/bin/perl

$oracle_server="192.168.2.100";
$oracle_listener="listener";
$oracle_sid="XE";
$oracle_port="1522";
$oracle_user="motor";
$oracle_password="lennon";
$oracle_testing_table="dual";

use DBI;
use DBD::Oracle;

my $dbh = DBI->connect("dbi:Oracle:host=$oracle_server;port=$oracle_port;sid=$oracle_sid",
$oracle_user, $oracle_password)
or die "Impossible de se connecter à la base Oracle : " . DBI->errstr;

my $sth = $dbh->prepare("SELECT sysdate FROM $oracle_testing_table")
or die "Impossible de preparer la requette: " . $dbh->errstr;

$sth->execute()
or die "Impossible d'exécuter la requette: " . $sth->errstr;

while ( my @data = $sth->fetchrow_array() )
{
my $date = $data[0];
print "Fecha: $date\n";
}


$sth->finish;

$dbh->disconnect;