Perl Et Récuperation Résultat Sql

Bonjour,
Je voudrais savoir comment faire pour récuperer via sqlplus le résultat d'une requete SQL.
Je sais le faire en utilisant un fichier tmp_spool...aprés je dois parser ce fichier pr trouver le résultat de la requete.
Comment avoir directement le résultat?

Mon code avec le fichier de sortie tmp_spool:

open(SQLPLUS,"|sqlplus $db_user/$db_pass$D1KEU2|");
print "sqlplus $db_user/$db_pass$D1KEU2";
print SQLPLUS "spool $tmp_spool\n";
print SQLPLUS ("select status from sc_job_tco where job_id=24;\n");
print "select status from sc_job_tco where job_id=24;\n"
print SQLPLUS "spool off\n";
print SQLPLUS "quit\n";
close(SQLPLUS);

Le but étant de récupere directement dans une variable le status de la requete "select status from sc_job_tco where job_id=24;"

Je ne veux pas utiliser le module DBI.

Merci d'avance pr ceux qui pourront m'orienter.

PAs d'idée? :p

:tagcode:

Sinon, pourquoi tu ne veux pas utiliser DBI ?

Je sais c'est débile mais DBI ne fait pas partis du package perl et dans ma societe l'équipe Unix a refusé de l'installer "Vous pouvez le faire via SQLPLUS" qu'il disait :roll:

Tu leur as expliqué qu'au niveau performance ce n'était pas comparable ? Et que DBI était un module extrèmement stable et présent dans Perl depuis longtemps ?
Sinon pour faire ce que tu veux, je pense qu'un petit coup d'IPC::Open2 ou IPC::Open3 devrait convenir (et ce sont des modules du CORE), ou à défaut de cela tu peux utiliser les `` pour récupérer la sortie standard d'une commande si tu peux faire en sorte que sqlplus n'ai pas besoin de recevoir les instructions sur son entrée standard.

--
Jedaï