23.11. 从 Oracle 的 PL/SQL 向 PL/pgSQL移植

Example 23-5. 一个简单的函数

下面是一个 Oracle 函数∶

CREATE OR REPLACE FUNCTION cs_fmt_browser_version(v_name IN VARCHAR, v_version IN VARCHAR)
RETURN VARCHAR IS
BEGIN
    IF v_version IS NULL THEN
        RETURN v_name;
    END IF;
    RETURN v_name || '/' || v_version;
END;
/
SHOW ERRORS;

让我们读一遍这个函数然后看看 PL/pgSQL 与之的不同∶

• PostgreSQL 没有命名的参数． 你必须在自己的函数中明确地给它们取个别名．

• Oracle 可以有 IN ， OUT ， 和 INOUT 参数传递给函数．比如， INOUT 的意思是该参数将接受一个数值并且返回 另外一个． PostgreSQL 只有 "IN" 参数并且函数只能 返回一个数值．

• 在函数原型里的 RETURN (不是函数体里的) 关键字到了 PostgreSQL 里就是 RETURNS ．

• 在 PostgreSQL 里，函数是使用单引号做为分隔符创建的， 因此你必须在你的函数里逃逸单引号(有时候会相当麻烦；参阅 Section 23.11.1.1 )．

• 在 PostgreSQL 里没有 /show errors 命令．

现在让我们看看移植到 PostgreSQL 之后这个函数是什么样子∶

CREATE OR REPLACE FUNCTION cs_fmt_browser_version(VARCHAR, VARCHAR)
RETURNS VARCHAR AS '
DECLARE
    v_name ALIAS FOR $1;
    v_version ALIAS FOR $2;
BEGIN
    IF v_version IS NULL THEN
        RETURN v_name;
    END IF;
    RETURN v_name || ''/'' || v_version;
END;
' LANGUAGE 'plpgsql';

Example 23-6. 一个创建其它函数的函数

下面的过程从一个 SELECT 语句中抓取 若干行，然后为了提高效率，又用 IF 语句中的 结果制作了一个巨大的函数． 请特别注意在 PostgreSQL 里游标， FOR 循环和需要逃逸的 单引号的区别．

CREATE OR REPLACE PROCEDURE cs_update_referrer_type_proc IS
    CURSOR referrer_keys IS
        SELECT * FROM cs_referrer_keys
        ORDER BY try_order;

    a_output VARCHAR(4000);
BEGIN
    a_output := 'CREATE OR REPLACE FUNCTION cs_find_referrer_type(v_host IN VARCHAR, v_domain IN VARCHAR,
v_url IN VARCHAR) RETURN VARCHAR IS BEGIN';

    for referrer_key in referrer_keys loop
        a_output := a_output || ' IF v_' || referrer_key.kind || ' LIKE ''' ||
referrer_key.key_string || ''' THEN RETURN ''' || referrer_key.referrer_type ||
'''; END IF;';
    END loop;

    a_output := a_output || ' RETURN NULL; END;';
    EXECUTE IMMEDIATE a_output;
END;
/
show errors

下面是这个函数在 PostgreSQL 里面的样子∶

CREATE FUNCTION cs_update_referrer_type_proc() RETURNS INTEGER AS '
DECLARE
    referrer_keys RECORD;  -- 声明一个在 FOR 里用的通用的记录
    a_output VARCHAR(4000);
BEGIN
    a_output := ''CREATE FUNCTION cs_find_referrer_type(VARCHAR,VARCHAR,VARCHAR)
                  RETURNS VARCHAR AS ''''
                     DECLARE
                         v_host ALIAS FOR $1;
                         v_domain ALIAS FOR $2;
                         v_url ALIAS FOR $3;
             BEGIN '';

    --
    -- 请注意我们是如何在一个 FOR 循环中使用 FOR <record> 构造
    -- 扫描各条结果的
    --

    FOR referrer_keys IN SELECT * FROM cs_referrer_keys ORDER BY try_order LOOP
        a_output := a_output || '' IF v_'' || referrer_keys.kind || '' LIKE ''''''''''
                 || referrer_keys.key_string || '''''''''' THEN RETURN ''''''
                 || referrer_keys.referrer_type || ''''''; END IF;'';
    END LOOP;

    a_output := a_output || '' RETURN NULL; END; '''' LANGUAGE ''''plpgsql'''';'';

    -- 这样是可以运行的原因是因为我们没有代换任何变量
    -- 否则它可就不能玩了．请查阅 PERFORM 获取另外一种运行函数的方法

    EXECUTE a_output;
END;
' LANGUAGE 'plpgsql';

Example 23-7. 一个有许多字串操作和 OUT 参数的过程

下面的 Oracle PL/SQL 过程用于分析一个 URL 并且返回若干个元素 (主机，路径和查询)．它是一个过程是因为在 PL/pgSQL 函数里， 只有一个函数可以返回(参阅 Section 23.11.3 )．在 PostgreSQL 里， 一个绕开这个局限的方法就是把过程分裂成三个不同的函数∶ 一个返回主机，另外一个返回路径，最后一个返回查询．

CREATE OR REPLACE PROCEDURE cs_parse_url(
    v_url IN VARCHAR,
    v_host OUT VARCHAR,  -- 这个变量是要传回的
    v_path OUT VARCHAR,  -- 这个也是
    v_query OUT VARCHAR) -- 还有这个
is
    a_pos1 INTEGER;
    a_pos2 INTEGER;
BEGIN
    v_host := NULL;
    v_path := NULL;
    v_query := NULL;
    a_pos1 := instr(v_url, '//'); --
PostgreSQL
没有 instr 函数

    IF a_pos1 = 0 THEN
        RETURN;
    END IF;
    a_pos2 := instr(v_url, '/', a_pos1 + 2);
    IF a_pos2 = 0 THEN
        v_host := substr(v_url, a_pos1 + 2);
        v_path := '/';
        RETURN;
    END IF;

    v_host := substr(v_url, a_pos1 + 2, a_pos2 - a_pos1 - 2);
    a_pos1 := instr(v_url, '?', a_pos2 + 1);

    IF a_pos1 = 0 THEN
        v_path := substr(v_url, a_pos2);
        RETURN;
    END IF;

    v_path := substr(v_url, a_pos2, a_pos1 - a_pos2);
    v_query := substr(v_url, a_pos1 + 1);
END;
/
show errors;

下面就是把这个过程翻译成 PostgreSQL 的样子∶

CREATE OR REPLACE FUNCTION cs_parse_url_host(VARCHAR) RETURNS VARCHAR AS '
DECLARE
    v_url ALIAS FOR $1;
    v_host VARCHAR;
    v_path VARCHAR;
    a_pos1 INTEGER;
    a_pos2 INTEGER;
    a_pos3 INTEGER;
BEGIN
    v_host := NULL;
    a_pos1 := instr(v_url,''//'');

    IF a_pos1 = 0 THEN
        RETURN '''';  -- 返回一个空
    END IF;

    a_pos2 := instr(v_url,''/'',a_pos1 + 2);
    IF a_pos2 = 0 THEN
        v_host := substr(v_url, a_pos1 + 2);
        v_path := ''/'';
        RETURN v_host;
    END IF;

    v_host := substr(v_url, a_pos1 + 2, a_pos2 - a_pos1 - 2 );
    RETURN v_host;
END;
' LANGUAGE 'plpgsql';