예 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, 함수 body는 문자열 리터럴로 간주되므로 인용부호를 사용해야 합니다. 주위에 표시나 달러 따옴표가 있습니다. 이는 다음을 대체합니다. 종료하는 중/Oracle 접근 방식에서.

• 그오류 표시명령이 존재하지 않습니다 안에포스트그레SQL이며 필요하지 않습니다. 오류는 자동으로 보고되기 때문입니다.

이 기능을 다음으로 이식하면 다음과 같습니다.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) -- 그리고 이건
이다
    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, sysdate);
    예외
        dup_val_on_index가 NULL일 때; -- 이미 존재하더라도 걱정하지 마세요.
    끝;
    저지르다;
끝;
/
오류 표시

이러한 절차는 다음으로 쉽게 변환될 수 있습니다.포스트그레SQL함수 반환무효. 특히 이 과정이 흥미롭다. 왜냐하면 그것은 우리에게 몇 가지를 가르쳐 줄 수 있기 때문입니다.

이것이 우리가 이 절차를 다음으로 포팅할 수 있는 방법입니다.윈 토토/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;