Si vous avez une rreur, quelques indice:- Si le compilateur (gcc) vous dit qu'il n'a pas trouvé un ou des fichiers à inclure (.h), tapez: $ oracle-instantclient-config --cflags et vérifiez que les fichiers d'interface client oracle (fichiers .h) sont bien dans le répertoire indiqué - Si le l'éditeur des liens (ld) ne trouve pas des bibliothèques (*.so.*), tapez: $ oracle-instantclient-config --libs et vérifiez en que les bibliothèques sont bien dans le repertoire indiqué ( après le paramètre -L ) Dans ces 2 cas, revenez à l'étape 4.2 et adaptez correctement le fichier oracle-instantclient-config à votre installation de l'oracle instantclient basic et oracle instantclient sdk. |
| #!/usr/bin/perl $oracle_server="SERVEUR_ORACLE"; $oracle_listener="LISTENER"; $oracle_sid="SID"; $oracle_port="PORT"; $oracle_user="USER"; $oracle_password="MOT_DE_PASSE"; $oracle_table_de_test="TABLE_DE_TEST"; 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; |