예 37-2. 다음에서 간단한 함수 포팅하기PL/SQL에범퍼카 토토/pgSQL

다음은오라클 PL/SQL기능:

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

이 기능을 살펴보고 차이점을 살펴보겠습니다.범퍼카 토토/pgSQL:

• PostgreSQL하지 않습니다 명명된 매개변수가 있습니다. 명시적으로 별칭을 지정해야 합니다. 함수 내부에 있습니다.

• 오라클가질 수 있습니다IN, 아웃및INOUT함수에 전달된 매개변수.INOUT14442_14545포스트그레SQL만 있음IN매개변수.

• 그반환키워드 함수 프로토타입(함수 본문 아님)은 다음과 같습니다.반품inPostgreSQL.

• 에PostgreSQL, 함수는 작은따옴표를 사용하여 생성됩니다. 함수 본문의 구분 기호이므로 이스케이프해야 합니다. 함수 본문 내부의 작은따옴표.

• 그/오류 표시명령은 다음과 같습니다 에는 존재하지 않습니다.PostgreSQL.

이 함수를 다음으로 이식하면 다음과 같습니다.PostgreSQL:

함수 생성 또는 교체 cs_fmt_browser_version(varchar, varchar)
varchar AS '를 반환합니다.
선언
    $1에 대한 v_name 별칭;
    $2에 대한 v_version 별칭;
시작
    v_version이 NULL인 경우
        v_name을 반환합니다.
    종료하면;
    RETURN v_name || ''/'' || v_version;
끝;
' 언어 plpgsql;

예 37-3. 생성하는 함수 포팅 다른 기능PL/SQL에범퍼카 토토/pgSQL

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

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

프로시저 생성 또는 교체 cs_update_referrer_type_proc IS
    커서 Referrer_keys IS 
        SELECT * cs_referrer_keys에서 
        ORDER BY try_order;

    a_output VARCHAR(4000); 
시작 
    a_output := '함수 생성 또는 교체 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 || '좋아요''' || 
Referrer_key.key_string || ''' 그런 다음 '''를 반환합니다 || referrer_key.referrer_type || 
'''; 종료 IF;'; 
    엔드 루프; 

    a_output := a_output || ' NULL을 반환합니다. 끝;'; 
    즉시 실행 a_output; 
끝; 
/ 
오류 표시;

이 함수는 다음과 같이 종료됩니다.PostgreSQL:

CREATE FUNCTION cs_update_referrer_type_proc() 정수 AS '를 반환합니다.
선언
    Referrer_keys 기록;  -- FOR에 사용할 일반 레코드를 선언합니다.
    a_output varchar(4000);
시작 
    a_output := ''기능 생성 cs_find_referrer_type(varchar, varchar, varchar) 
                  varchar AS ''''를 반환합니다. 
                     선언 
                         $1에 대한 v_host 별칭; 
                         $2에 대한 v_domain 별칭; 
                         $3에 대한 v_url 별칭;
                     시작하다 ''; 

    -- 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 || ''좋아요'''''''''' 
                 || Referrer_keys.key_string || '''''''''' 그런 다음 ''''''를 반환합니다. 
                 || referrer_keys.referrer_type || ''''''; 종료 IF;''; 
    엔드 루프; 

    a_output := a_output || '' NULL을 반환합니다. 끝; '''' 언어 plpgsql;''; 

    -- EXECUTE는 어떤 변수도 대체하지 않기 때문에 작동합니다.
    -- 그렇지 않으면 실패할 것입니다.  함수를 실행하는 또 다른 방법은 PERFORM을 참조하세요.

    a_output을 실행합니다. 
끝; 
' 언어 plpgsql;

예 37-4. 문자열을 사용하여 프로시저 이식하기 조작과아웃다음 매개변수PL/SQL에범퍼카 토토/pgSQL

다음오라클PL/SQL 프로시저는 URL을 구문 분석하고 여러 가지를 반환하는 데 사용됩니다. 요소(호스트, 경로 및 쿼리).범퍼카 토토/pgSQL함수는 하나만 반환할 수 있습니다. 가치. 에서포스트그레SQL, 하나 이 문제를 해결하는 방법은 절차를 세 개로 나누는 것입니다. 다른 기능: 하나는 호스트를 반환하는 것이고 다른 하나는 호스트를 반환하는 것입니다. 경로와 쿼리에 대한 또 다른 경로입니다.

이것은 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_host(varchar)는 varchar를 '로 반환합니다.
선언
    $1에 대한 v_url 별칭;
    v_host varchar;
    v_path varchar;
    a_pos1 정수;
    a_pos2 정수;
    a_pos3 정수;
시작 
    v_host := 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 := ''/''; 
        RETURN v_host; 
    종료하면; 

    v_host := substr(v_url, a_pos1 + 2, a_pos2 - a_pos1 - 2 ); 
    RETURN v_host; 
끝; 
' 언어 plpgsql;

예 37-5. 프로시저 포팅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인 경우 예외; -- 이미 존재하더라도 걱정하지 마세요.(4)END;
    저지르다;
끝;
/
오류 표시

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

이 절차를 다음으로 포팅할 수 있는 방법은 다음과 같습니다.범퍼카 토토/pgSQL:

함수 생성 또는 교체 cs_create_job(integer) 정수를 '로 반환합니다.
선언
    $1에 대한 v_job_id 별칭;
    a_running_job_count 정수;
    a_num 정수;
시작
    독점 모드에서 LOCK TABLE cs_jobs;
    SELECT 개수(*) INTO a_running_job_count FROM cs_jobs WHERE end_stamp가 NULL입니다.

    IF a_running_job_count  0
    그런 다음
        RAISE EXCEPTION ''새 작업을 생성할 수 없습니다. 작업이 현재 실행 중입니다.'';
    종료하면;

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

    SELECT 개수(*) INTO a_num FROM cs_jobs WHERE job_id=v_job_id;
    IF NOT FOUND THEN -- 마지막 쿼리에서 아무것도 반환되지 않은 경우
        -- 이 작업은 테이블에 없으므로 삽입해 보겠습니다.
        INSERT INTO cs_jobs(job_id, start_stamp) VALUES(v_job_id, current_timestamp);
        1을 반환합니다.
    그 외
        RAISE NOTICE ''작업이 이미 실행 중입니다.'';(1)END IF;

    0을 반환합니다.
끝;
' 언어 plpgsql;