Discussion :

[Melvine]

Bonjour,

est-il possible avec le module DBI et DBD::Oracle,
de recuperer dans mon script perl, le resultat que me retourne une fonction créer sur oracle ?


merci

[psylox]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
my $dbh = DBI->connect(.....);
 
my $query = "SELECT maFonction('unParam') as ret";
my $result = $dbh->selectrow_hashref($query);
print $result->{ret};

[chuckboy]

Bonjour,

J'ai le même soucis et la solution proposer ne fonctionne pas.
Quelqu'un pour aider ?

Code de la fonction oracle:
(iType IN VARCHAR2, iNberMaxOfEvents IN NUMBER, iDebug IN NUMBER default 0) RETURN NUMBER
IS
BEGIN
RETURN (5);
END FN_TESTPERL;

Appel DBI via PERL
my $query = "SELECT FN_TESTPERL('REL',1) as ret";
my $result = $vgsDbSession->selectrow_hashref($query);
print $result->{ret};

ERROR
DBD::Oracle::db selectrow_hashref failed: ORA-00923: mot-clÚ FROM absent Ó l'emplacement prÚvu (DBD ERROR: error possibly near <*> indicator at char 34 in 'SELECT FN_TESTPERL('REL',1) as ret<*>') [for Statement "SELECT FN_TESTPERL('REL',1) as ret"]

Merci à tous !

[estofilo]

Avec Oracle, le FROM est obligatoire. Lorsqu'on veut un résultat sans lien avec une table, on utilise généralement la vue DUAL:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT fonction(parametre) FROM dual