예 38-5. 다음에서 간단한 함수 포팅하기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:

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

• 에포스트그레SQL, 함수 본문은 문자열 리터럴로 간주되므로 주위에 따옴표나 달러 따옴표를 사용해야 합니다. 이는 종료를 대체합니다./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;

예 38-6. 생성하는 함수 포팅 다른 기능PL/SQL에토토 핫/pgSQL

다음 절차는 a에서 행을 가져옵니다.선택문을 작성하고 큰 함수를 빌드합니다. 결과는 다음과 같습니다.IF문장, 효율성을 위해서. 특히 주목하세요. 커서와의 차이점for루프.

이것은 오라클 버전입니다:

프로시저 생성 또는 교체 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; 
끝; 
/ 
오류 표시;

이 함수의 결과는 다음과 같습니다포스트그레SQL:

함수 생성 또는 교체 cs_update_referrer_type_proc()는 $func$로 void를 반환합니다.
선언
    Referrer_key RECORD;  -- FOR에서 사용할 일반 레코드를 선언합니다.
    func_body 텍스트;
    func_cmd 텍스트;
시작 
    func_body := '시작';

    -- FOR 루프에서 쿼리 결과를 검색하는 방법에 주목하세요.
    -- FOR <record 구문을 사용합니다.

    FOR Referrer_key IN SELECT * FROM cs_referrer_keys ORDER BY try_order 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인용문 포함 마크.

예 38-7. 문자열을 사용하여 프로시저 이식하기 조작과아웃매개변수: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');

예 38-8. 프로시저 포팅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일 때; -- 이미 존재하더라도 걱정하지 마세요.
    끝;
    저지르다;
끝;
/
오류 표시

이러한 절차는 다음으로 쉽게 변환될 수 있습니다.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;