40.12. 에서 포팅Oracle윈 토토/sql

예 40-8. 에서 간단한 기능 포팅PL/SQLto윈 토토/pgsql

여기에Oracle PL/SQL기능 :

함수 작성 또는 교체 CS_FMT_BROWSER_VERSION (V_NAME VARCHAR,
                                                  v_version varchar)
반환 바르 르 차입니다
시작하다
    v_version이 null이면 그렇다면
        반환 v_name;
    끝 IF;
    반환 v_name || '/'|| v_version;
끝;
/
오류 표시;

이 기능을 살펴보고 비교 된 차이점을 보자. 에게윈 토토/pgsql:

• thereturn함수의 키워드 프로토 타입 (기능 본문이 아님)이됩니다반환inPostgreSQL. 또한,isas언어절로윈 토토/pgsql만이 가능한 기능은 아닙니다 언어.

• inPostgreSQL, 함수 몸체는 문자열 문자로 간주되므로 인용문을 사용해야합니다. 그 주변의 마크 또는 달러 인용문. 이것은 종료/Oracle 접근법에서.

• the오류 표시명령이 존재하지 않습니다 안에PostgreSQL, 필요하지 않습니다 오류는 자동으로보고되므로

이것은이 기능이 포팅되었을 때 어떻게 보이는지입니다.PostgreSQL:

함수 작성 또는 교체 CS_FMT_BROWSER_VERSION (V_NAME VARCHAR,
                                                  v_version varchar)
Varchar를 $$로 반환합니다
시작하다
    v_version이 null이면 그렇다면
        반환 v_name;
    끝 IF;
    반환 v_name || '/'|| v_version;
끝;
$$ 언어 plpgsql;

예 40-9. 다른 기능을 생성하는 함수를 포팅합니다 의 함수윈 토토/sqlto윈 토토/pgsql

다음 절차는 a에서 행을 잡습니다.select명령문과 큰 기능을 구축합니다 결과if진술 효율성.

이것은 Oracle 버전입니다 :

절차 작성 또는 교체 CS_UPDATE_REFERRER_TYPE_PROC IS
    Cursor referrer_keys입니다
        CS_REFERRER_KEYS에서 *를 선택하십시오
        try_order의 주문;
    func_cmd varchar (4000);
시작하다
    func_cmd : = '함수 생성 또는 교체 CS_FIND_REFERRER_TYPE (v_host in varchar,
                 Varchar의 V_Domain, Varchar의 V_URL) Return varchar가 시작됩니다. ';

    referrer_key의 경우 referrer_keys 루프
        func_cmd : = func_cmd ||
          'V_'|| referrer_key.kind
          || '좋아요' ''|| referrer_key.key_string
          || ````그런 다음 반환 '' '|| referrer_key.referrer_type
          || '' ';; 끝 If; ';
    엔드 루프;

    func_cmd : = func_cmd || '귀환 널; 끝;';

    즉시 func_cmd를 실행합니다.
끝;
/
오류 표시;

이 함수가 어떻게 끝날 것인지PostgreSQL:

함수 생성 또는 교체 CS_UPDATE_REFERRER_TYPE_PROC () voids는 $ func $로 void을 반환합니다
선언하다
    참조 _keys 커서입니다
        CS_REFERRER_KEYS에서 *를 선택하십시오
        try_order의 주문;
    func_body 텍스트;
    func_cmd 텍스트;
시작하다
    func_body : = '시작';

    referrer_key의 경우 referrer_keys 루프
        func_body : = func_body ||
          'V_'|| referrer_key.kind
          || '좋아요'|| quote_literal (referrer_key.key_string)
          || '그런 다음 반환'|| quote_literal (referrer_key.referrer_type)
          || ';; 끝 If; ' ;
    엔드 루프;

    func_body : = func_body || '귀환 널; 끝;';

    func_cmd : =
      '기능 생성 또는 교체 CS_FIND_REFERRER_TYPE (V_HOST VARCHAR,
                                                        v_domain varchar,
                                                        v_url varchar)
        varchar를 '로 반환합니다.
      || quote_literal (func_body)
      || '언어 plpgsql;' ;

    func_cmd를 실행합니다.
끝;
$ func $ language plpgsql;

함수의 본문이 어떻게 별도로 구축되는지 알 수 있습니다. 통과QUOTE_LITERAL인용 표시. 이 기술은 우리가 할 수 없기 때문에 필요합니다 새 기능을 정의하기 위해 안전하게 달러 인용문을 사용합니다. 어떤 문자열이에서 보간 될 지 확실하게 알고 있습니다referrer_key.key_string필드. (우리는 가정하고 있습니다 여기referrer_key.kind할 수 있습니다 항상 믿음host, 도메인또는url그러나referrer_key.key_string무엇이든, 특히 그것은 달러 표지판을 포함 할 수 있습니다.) 이것 기능은 실제로 Oracle Original의 개선입니다. 이 깨진 코드를 생성하지 않습니다.referrer_key.key_string또는referrer_key.referrer_type견적을 포함하십시오 점수.

예 40-10. 문자열 조작으로 절차를 포팅합니다 그리고out매개 변수윈 토토/sqlto윈 토토/pgsql

다음Oracle윈 토토/sql 절차는 URL을 구문 분석하고 여러 요소 (호스트, 경로 및 쿼리).

이것은 Oracle 버전입니다 :

절차 작성 또는 교체 CS_PARSE_URL (
    Varchar의 v_url,
    V_HOST OUT VARCHAR-- 이것은 다시 전달됩니다
    V_PATH OUT VARCHAR- - 이것도
    v_query out varchar) - 그리고 이것
이다
    A_POS1 정수;
    A_POS2 정수;
시작하다
    v_host : = null;
    v_path : = null;
    v_query : = null;
    a_pos1 : = inst (v_url, '//');

    A_POS1 = 0이면
        반품;
    끝 IF;
    a_pos2 : = inst (v_url, '/', a_pos1 + 2);
    a_pos2 = 0이면
        v_host : = substr (v_url, a_pos1 + 2);
        v_path : = '/';
        반품;
    끝 IF;

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

    A_POS1 = 0이면
        v_path : = substr (v_url, a_pos2);
        반품;
    끝 IF;

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

여기에 가능한 번역이 있습니다윈 토토/pgsql:

함수 작성 또는 교체 CS_PARSE_URL (
    Varchar의 v_url,
    V_HOST OUT VARCHAR-- 이것은 다시 전달됩니다
    V_PATH OUT VARCHAR- - 이것도
    v_query out varchar) - 그리고 이것
$$로
선언하다
    A_POS1 정수;
    A_POS2 정수;
시작하다
    v_host : = null;
    v_path : = null;
    v_query : = null;
    a_pos1 : = inst (v_url, '//');

    A_POS1 = 0이면
        반품;
    끝 IF;
    a_pos2 : = inst (v_url, '/', a_pos1 + 2);
    a_pos2 = 0이면
        v_host : = substr (v_url, a_pos1 + 2);
        v_path : = '/';
        반품;
    끝 IF;

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

    A_POS1 = 0이면
        v_path : = substr (v_url, a_pos2);
        반품;
    끝 IF;

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

이 기능은 다음과 같이 사용할 수 있습니다.

선택 *에서 CS_PARSE_URL ( 'http://foobar.com/query.cgi?baz');

예 40-11. 절차 포팅PL/SQLtoPL/PGSQL

Oracle 버전 :

절차 작성 또는 교체 CS_CREATE_JOB (v_JOB_ID Integer)는 IS입니다
    a_running_job_count 정수;
    Pragma Autonomous_transaction;(1)시작
    독점 모드의 잠금 테이블 CS_JOBS;(2)cs_jobs에서 a_running_job_count로 count (*)를 선택하십시오.

    a_running_job_count 0 인 경우
        저지르다; - 무료 잠금(3)REAS_APPLICATION_ERROR (-20000,
                 '새로운 직업을 만들 수 없음 : 현재 일자리가 실행 중입니다.');
    끝 IF;

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

    시작하다
        cs_jobs (job_id, start_stamp) 값 (v_job_id, sysdate)에 삽입;
    예외
        dup_val_on_index 일 때 null; - 이미 존재하는지 걱정하지 마십시오
    끝;
    저지르다;
끝;
/
오류 표시

이와 같은 절차는 쉽게 변환 할 수 있습니다PostgreSQL반환 기능void. 이 절차는 특히 흥미 롭습니다 그것은 우리에게 몇 가지를 가르쳐 줄 수 있기 때문에 :

이것은 우리 가이 절차를 포트 할 수있는 방법입니다윈 토토/pgsql:

함수 생성 또는 교체 CS_CREATE_JOB (v_JOB_ID 정수)는 void를 $$로 반환합니다.
선언하다
    a_running_job_count 정수;
시작하다
    독점 모드에서 잠금 테이블 CS_JOBS;

    end_stamp가 null 인 cs_jobs에서 a_running_job_count로 count (*)를 선택하십시오.

    a_running_job_count 0 인 경우
        예외 제외 '새 작업을 만들 수 없음 : 현재 작업이 실행 중입니다';(1)종료 if;

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

    시작하다
        cs_jobs (job_id, start_stamp) 값 (v_job_id, now ())에 삽입;
    예외
        고유 _violation이있을 때(2)- 이미 존재하는지 걱정하지 마십시오
    끝;
끝;
$$ 언어 plpgsql;