Bonjour,

Je dois integré dans un script perl la creation d'une fonction pour postgresql.
La fonction fonctionne sous postgresql, mais dés que j'essaie de l'integrer, j'ai un message d'erreur. Je ne vois pas ou est le probleme..
Voici la partie du code qui pose probleme
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
$result = $connDB->do("CREATE OR REPLACE FUNCTION concat2(text, text) RETURNS text AS '\
    SELECT CASE WHEN $1 IS NULL OR $1 = \'\' THEN $2\
                WHEN $2 IS NULL OR $2 = \'\' THEN $1\
                ELSE $1 || \' | \' || $2\
                END; \
 '\
 LANGUAGE SQL;");
Voici le message d'erreur
Use of uninitialized value in concatenation (.) or string at ./create_database.pl line 1148.
DBD:;Pg::db do failed: ERROR: syntax error at or near "AGGREGATE" at character 1 at ./create_database.pl line 1158.