Perl + Postgresql: функция не возвращает значение, если присутствует RAISE NOTICE - PullRequest
Новая
       158

Perl + Postgresql: функция не возвращает значение, если присутствует RAISE NOTICE

3 голосов
/ 13 мая 2009

Я заметил, что когда я вызываю функцию PL / PgSQL или PL / Perl из сценария Perl с использованием DBI, он не возвращает значение, если в функции используется RAISE NOTICE или elog (NOTICE). Для иллюстрации:

Простая таблица: 

CREATE TABLE "public"."table1" (
  "fld" INTEGER
) WITHOUT OIDS;

Простая функция: 

CREATE OR REPLACE FUNCTION "public"."function1" () RETURNS integer AS
$body$
DECLARE
  myvar INTEGER;
BEGIN
  SELECT INTO myvar fld FROM table1 LIMIT 1;
  RETURN myvar;
END;
$body$
LANGUAGE 'plpgsql'

Часть скрипта Perl: 

use DBI;
...
my $ref = $dbh->selectcol_arrayref('SELECT function1()');
print $$ref[0];

Как есть, выводит значение из таблицы.

Но я не получу результата, если добавлю RAISE NOTICE следующим образом: 

SELECT INTO myvar fld FROM table1 LIMIT 1;
RAISE NOTICE 'Testing';
RETURN myvar;

Я что-то упустил, или такое поведение по своему замыслу?

Ответы [ 2 ]

2 голосов
/ 14 мая 2009

Проверьте настройку client_min_messages в файле postgresql.conf сервера базы данных. Из документации PostgreSQL 8.3:

client_min_messages (строка)

Управляет тем, какие уровни сообщений отправляются клиенту. Допустимые значения DEBUG5, DEBUG4, DEBUG3, DEBUG2, DEBUG1, LOG, NOTICE, WARNING, ERROR, FATAL и PANIC. Каждый уровень включает в себя все уровни, которые следуют за ним. Чем позже уровень, тем меньше сообщений отправляется. По умолчанию NOTICE. Обратите внимание, что LOG имеет другой ранг, чем log_min_messages.

1 голос
/ 14 мая 2009

Я не могу воспроизвести это, используя Perl 5.10 Debian, DBI 1.605 и DBD :: Pg 2.8.7 против PostgreSQL 8.3.7. Уведомление распечатывается, как и ожидалось. 

steve@steve@[local] =# create or replace function public.function1() returns integer language 'plpgsql' as $$ declare myvar integer; begin select into myvar fld from table1 limit 1; raise notice 'Testing'; return myvar; end; $$;
CREATE FUNCTION
steve@steve@[local] =#
[1]+  Stopped                 psql --cluster 8.3/steve
steve@arise:~$ DBI_TRACE=1 perl -MData::Dumper -MDBI -e '$dbh = DBI->connect(qw|dbi:Pg:dbname=steve;port=5433;host=/tmp steve steve|, {RaiseError=>1,PrintError=>0}); print Data::Dumper->new([$dbh->selectcol_arrayref("SELECT function1()")], [qw|result|])->Dump'
    DBI 1.605-ithread default trace level set to 0x0/1 (pid 5739) at DBI.pm line 273 via -e line 0
    Note: perl is running without the recommended perl -w option
    -> DBI->connect(dbi:Pg:dbname=steve;port=5433;host=/tmp, steve, ****, HASH(0x1c9ddf0))
    -> DBI->install_driver(Pg) for linux perl=5.010000 pid=5739 ruid=1000 euid=1000
       install_driver: DBD::Pg version 2.8.7 loaded from /usr/lib/perl5/DBD/Pg.pm
    <- install_driver= DBI::dr=HASH(0x1e06a68)
    !! warn: 0 CLEARED by call to connect method
    <- connect('dbname=steve;port=5433;host=/tmp', 'steve', ...)= DBI::db=HASH(0x1fd8e08) at DBI.pm line 638
    <- STORE('RaiseError', 1)= 1 at DBI.pm line 690
    <- STORE('PrintError', 0)= 1 at DBI.pm line 690
    <- STORE('AutoCommit', 1)= 1 at DBI.pm line 690
    <- STORE('Username', 'steve')= 1 at DBI.pm line 693
    <> FETCH('Username')= 'steve' ('Username' from cache) at DBI.pm line 693
    <- connected('dbi:Pg:dbname=steve;port=5433;host=/tmp', 'steve', ...)= undef at DBI.pm line 699
    <- connect= DBI::db=HASH(0x1fd8e08)
    <- STORE('dbi_connect_closure', CODE(0x1da2280))= 1 at DBI.pm line 708
NOTICE:  Testing
    <- selectcol_arrayref('SELECT function1()')= ( [ '2' ] ) [1 items] at -e line 1
$result = [
            '2'
          ];

Я предлагаю изолировать вашу проблему в небольшом скрипте (как выше) и запускать его с DBI_TRACE, установленным достаточно высоко, чтобы увидеть все различия. Может также посмотреть на заметки о выпуске для DBD :: Pg и узнать, упоминают ли они об этом, возможно, они были смущены ими в прошлом. С DBI_TRACE=10 я вижу это: 

PQexec
Begin pg_warn (message: NOTICE:  Testing
 DBIc_WARN: 1 PrintWarn: 1)
NOTICE:  Testing
End pg_warn
Begin _sqlstate

Так что вы должны искать что-то подобное в своем собственном выводе.

...