예 40-8. 다음에서 간단한 함수 포팅하기PL/SQL에젠 토토/pgSQL

여기에 있습니다오라클 PL/SQL기능:

함수 생성 또는 교체 cs_fmt_browser_version(v_name varchar,
                                                  v_version varchar)
반환 varchar IS
시작
    v_version이 NULL인 경우
        RETURN v_name;
    종료하면;
    RETURN v_name || '/' || v_version;
끝;
/
오류 표시;

이 기능을 살펴보고 다음과 비교하여 차이점을 살펴보겠습니다.젠 토토/pgSQL:

• 그반환함수 프로토타입(함수 본문 아님)의 키워드는 다음과 같습니다반환에PostgreSQL. 또한,IS되다AS, 그리고 다음을 추가해야 합니다.언어절 왜냐하면젠 토토/pgSQL이것이 유일한 함수 언어는 아닙니다.

• 에PostgreSQL, 함수 본문은 문자열 리터럴로 간주되므로 주위에 따옴표나 달러 따옴표를 사용해야 합니다. 이는 종료를 대체합니다./Oracle 접근 방식에서.

• 그오류 표시명령이 존재하지 않습니다.PostgreSQL오류가 자동으로 보고되므로 필요하지 않습니다.

이 기능을 다음으로 이식하면 다음과 같습니다.PostgreSQL:

함수 생성 또는 교체 cs_fmt_browser_version(v_name varchar,
                                                  v_version varchar)
varchar를 $$로 반환합니다.
시작
    v_version이 NULL인 경우
        RETURN v_name;
    종료하면;
    RETURN v_name || '/' || v_version;
끝;
$$ 언어 plpgsql;

예 40-9. 다음에서 다른 함수를 생성하는 함수 포팅PL/SQL에젠 토토/pgSQL

다음 절차는 a에서 행을 가져옵니다.선택문을 작성하고 그 결과를 사용하여 큰 함수를 빌드합니다.IF문은 효율성을 위해 작성되었습니다.

이것은 Oracle 버전입니다:

프로시저 생성 또는 교체 cs_update_referrer_type_proc IS
    커서 Referrer_keys IS
        SELECT * cs_referrer_keys에서
        ORDER BY try_order;
    func_cmd VARCHAR(4000);
시작
    func_cmd := '함수 생성 또는 교체 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
        func_cmd := func_cmd ||
          ' IF v_' || Referrer_key.kind
          || '좋아요''' || Referrer_key.key_string
          || ''' 그런 다음 '''를 반환합니다 || Referrer_key.referrer_type
          || '''; 종료 IF;';
    엔드 루프;

    func_cmd := func_cmd || ' NULL을 반환합니다. 끝;';

    즉시 실행 func_cmd;
끝;
/
오류 표시;

이 함수는 다음과 같이 끝납니다.PostgreSQL:

함수 생성 또는 교체 cs_update_referrer_type_proc()는 $func$로 void를 반환합니다.
선언
    Referrer_keys 커서는 IS입니다.
        SELECT * cs_referrer_keys에서
        ORDER BY try_order;
    func_body 텍스트;
    func_cmd 텍스트;
시작
    func_body := '시작';

    FOR Referrer_key IN Referrer_keys LOOP
        func_body := func_body ||
          ' IF v_' || Referrer_key.kind
          || '좋아요' || quote_literal(referrer_key.key_string)
          || ' 그런 다음 반환 ' || quote_literal(referrer_key.referrer_type)
          || '; END IF;' ;
    엔드 루프;

    func_body := func_body || ' NULL을 반환합니다. 끝;';

    func_cmd :=
      '함수 생성 또는 교체 cs_find_referrer_type(v_host varchar,
                                                        v_domain varchar,
                                                        v_url varchar)
        varchar AS '를 반환합니다.
      || quote_literal(func_body)
      || ' 언어 plpgsql;' ;

    실행 func_cmd;
끝;
$func$ 언어 plpgsql;

함수 본문이 어떻게 별도로 구축되고 전달되는지 주목quote_literal따옴표 안에 있는 따옴표를 두 배로 늘립니다. 이 기술은 새로운 함수를 정의하기 위해 달러 인용을 안전하게 사용할 수 없기 때문에 필요합니다. 우리는 어떤 문자열이referrer_key.key_string필드. (여기서는 다음과 같이 가정합니다.referrer_key.kind항상 신뢰할 수 있음호스트, 도메인, 또는url하지만referrer_key.key_string무엇이든 가능하며 특히 달러 기호가 포함될 수 있습니다.) 이 함수는 실제로 다음과 같은 경우 깨진 코드를 생성하지 않기 때문에 Oracle 원본보다 개선된 것입니다.referrer_key.key_string또는referrer_key.referrer_type따옴표가 포함되어 있습니다.

예 40-10. 문자열 조작을 사용하여 프로시저 포팅 및아웃다음 매개변수PL/SQL에젠 토토/pgSQL

다음오라클PL/SQL 프로시저는 URL을 구문 분석하고 여러 요소(호스트, 경로 및 쿼리)를 반환하는 데 사용됩니다.

이것은 Oracle 버전입니다:

프로시저 생성 또는 교체 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;
시작
    v_host := NULL;
    v_path := NULL;
    v_query := NULL;
    a_pos1 := instr(v_url, '//');

    만약 a_pos1 = 0이면
        반환;
    종료하면;
    a_pos2 := instr(v_url, '/', a_pos1 + 2);
    만약 a_pos2 = 0이면
        v_host := substr(v_url, a_pos1 + 2);
        v_path := '/';
        반품;
    종료하면;

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

    만약 a_pos1 = 0이면
        v_path := substr(v_url, a_pos2);
        반품;
    종료하면;

    v_path := substr(v_url, a_pos2, a_pos1 - a_pos2);
    v_query := substr(v_url, a_pos1 + 1);
끝;
/
오류 표시;

다음에 가능한 번역이 있습니다.젠 토토/pgSQL:

함수 생성 또는 교체 cs_parse_url(
    v_url IN VARCHAR,
    v_host OUT VARCHAR, -- 다시 전달됩니다.
    v_path OUT VARCHAR, -- 이것도 마찬가지입니다.
    v_query OUT VARCHAR) -- 그리고 이건
AS $$
선언
    a_pos1 INTEGER;
    a_pos2 INTEGER;
시작
    v_host := NULL;
    v_path := NULL;
    v_query := NULL;
    a_pos1 := instr(v_url, '//');

    만약 a_pos1 = 0이면
        반환;
    종료하면;
    a_pos2 := instr(v_url, '/', a_pos1 + 2);
    만약 a_pos2 = 0이면
        v_host := substr(v_url, a_pos1 + 2);
        v_path := '/';
        반환;
    종료하면;

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

    만약 a_pos1 = 0이면
        v_path := substr(v_url, a_pos2);
        반환;
    종료하면;

    v_path := substr(v_url, a_pos2, a_pos1 - a_pos2);
    v_query := substr(v_url, a_pos1 + 1);
끝;
$$ 언어 plpgsql;

이 함수는 다음과 같이 사용될 수 있습니다:

SELECT * FROM cs_parse_url('http://foobar.com/query.cgi?baz');

예 40-11. 프로시저 포팅PL/SQL에젠 토토/pgSQL

오라클 버전:

프로시저 생성 또는 교체 cs_create_job(v_job_id IN INTEGER) IS
    a_running_job_count INTEGER;
    PRAGMA AUTONOMOUS_TRANSACTION;(1)시작
    독점 모드에서 LOCK TABLE cs_jobs;(2)end_stamp가 NULL인 cs_jobs에서 a_running_job_count INTO 개수(*) 선택;

    IF a_running_job_count  0 그러면
        커밋; -- 자유 잠금(3)raise_application_error(-20000,
                 '새 작업을 생성할 수 없습니다. 작업이 현재 실행 중입니다.');
    종료하면;

    cs_active_job에서 삭제;
    cs_active_job(job_id) 값(v_job_id)에 삽입;

    시작
        INSERT INTO cs_jobs(job_id, start_stamp) VALUES(v_job_id, now());
    예외
        dup_val_on_index가 NULL일 때; -- 이미 존재하더라도 걱정하지 마세요.
    끝;
    저지르다;
끝;
/
오류 표시

이러한 절차는 다음으로 쉽게 변환될 수 있습니다.PostgreSQL함수 반환무효. 특히 이 절차는 우리에게 몇 가지 사실을 가르쳐 줄 수 있다는 점에서 흥미롭습니다.

이 절차를 다음으로 포팅할 수 있는 방법입니다.젠 토토/pgSQL:

함수 생성 또는 교체 cs_create_job(v_job_id 정수) $$로 void를 반환합니다.
선언
    a_running_job_count 정수;
시작
    독점 모드에서 LOCK TABLE cs_jobs;

    SELECT 개수(*) INTO a_running_job_count FROM cs_jobs WHERE end_stamp가 NULL입니다.

    IF a_running_job_count  0 그러면
        RAISE EXEPTION '새 작업을 생성할 수 없습니다. 작업이 현재 실행 중입니다.';(1)END IF;

    cs_active_job에서 삭제;
    cs_active_job(job_id) 값(v_job_id)에 삽입;

    시작
        INSERT INTO cs_jobs(job_id, start_stamp) VALUES(v_job_id, now());
    예외
        WHEN 고유_위반 THEN(2)-- 이미 존재하더라도 걱정하지 마세요.
    끝;
끝;
$$ 언어 plpgsql;