#!/usr/bin/perl

$oracle_server="ORACLE_SERVER";
$oracle_listener="ORACLE_LISTENER";
$oracle_sid="SID";
$oracle_port="SERVER_PORT";
$oracle_user="USER";
$oracle_password="PASSWORD";
$oracle_table_de_test="TABLE";

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 * FROM $oracle_table_de_test")
  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 $firstname = $data[1];
    my $id = $data[2];
    print "\t$id: $firstname $lastname\n";
}

if ($sth->rows == 0) 
{
    print "Table vide\n";
}

$sth->finish;

$dbh->disconnect;