2

我有一个递归 PL/PgSQL 函数，它使用这样的绑定参数化游标：

create or replace function test_cursor(rec boolean) returns void as $$
declare
    cur cursor(a int) for select * from generate_series(1,a);
begin
    for c in cur(3) loop
        if rec then
            perform test_cursor(false);
        end if;
    end loop;
end;
$$ language plpgsql;

当函数递归调用自身时，会报错：

select test_cursor(true)

Code: 42P03, ErrorMessage: cursor "cur" already in use

显然，我的光标范围不限于单个函数调用。在谷歌搜索解决方法后，我在邮件列表档案中发现了这条消息，其中提到未绑定的游标没有这个限制，即：

declare
     mycursor refcursor;
begin
     open mycursor for ...;
end;

但是我看不到如何参数化未绑定的游标。另外，我不能使用for...loop未绑定的游标：

-- 42601: cursor FOR loop must use a bound cursor variable
create or replace function test_cursor(rec boolean) returns void as $$
declare
    cur refcursor;
begin
    open cur for select * from generate_series(1,3);
    for c in cur loop
        if rec then
            perform test_cursor(false);
        end if;
    end loop;
    close cur;
end;
$$ language plpgsql;

有人可以建议一种替代方法吗？

PS。我正在移植大量使用递归和参数化游标的 Oracle 存储过程。在我用全局范围的游标遇到这个问题之前，转换似乎很简单。

4

1 回答 1

3

我刚刚找到了一个对我来说看起来很奇怪但似乎仍然有效的解决方法。我不确定它是否有任何缺点，但就我而言，唯一的选择是手动重写很多代码，所以我想我会尝试一下。

解决方案不是限制打开光标的范围，而是随机化其公开可见的名称（门户名称），这样每次我重新输入我的函数时，我都会得到一个新的门户名称：

create or replace function test_cursor(rec boolean default true) returns void as $$
declare
    cur cursor(a int) for select * from generate_series(1,a);
begin
    -- assign a random string as a portal name
    -- before iterating over the cursor
    cur := random_portal_name();

    for c in cur(3) loop
        if rec then
            perform test_cursor(false);
        end if;
    end loop;
end;
$$ language plpgsql;

有很多方法可以获取随机字符串：从序列中获取下一个值、生成 UUID 等等。我为自己编写了一个辅助函数，该函数为此目的创建了一个临时（会话范围）序列：

create or replace function random_portal_name() returns varchar as $$
begin
    create temp sequence if not exists portal_names;
    return 'portal$' || nextval('portal_names');
end;
$$ language plpgsql;
于 2017-02-03T01:37:08.573 回答