38.12. 에서 포팅Oracle토토 핫/sql

예 38-5. 에서 간단한 기능 포팅PL/SQLto토토 핫/pgsql

여기가 있습니다Oracle 토토 핫/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, 그리고 당신은 a를 추가해야합니다.언어절로토토 핫/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;

예 38-6. 생성하는 함수를 포팅합니다 의 또 다른 함수토토 핫/sqlto토토 핫/pgsql

다음 절차는 a에서 행을 잡습니다.select명령문과 큰 기능을 구축합니다 결과와 함께if진술, 효율성을 위해. 특히 주목하십시오 커서와의 차이점for루프.

이것은 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을 반환합니다
선언하다
    참조 _key 레코드;  - a에 사용할 일반 레코드를 선언하십시오.
    func_body 텍스트;
    func_cmd 텍스트;
시작하다 
    func_body : = '시작';

    - 루프 용 쿼리 결과를 스캔하는 방법에 주목하십시오.
    - for <crecor 구성을 사용합니다.

    선택 *에서 cs_referrer_keys wrome에서 referrer_key의 경우 try_order loop의 주문
        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_LITERALTO 인용 표시가 두 배로 늘어납니다. 이 기술이 필요합니다 우리는 정의를 위해 달러 인용문을 안전하게 사용할 수 없기 때문에 새로운 기능 : 우리는 어떤 줄이 될지 확실하지 않습니다. 에서 보간referrer_key.key_string필드. (우리는 여기서referrer_key.kind항상 신뢰할 수 있습니다 BE호스트, 도메인또는url그러나referrer_key.key_string무엇이든, 특히 그것은 달러 표지판을 포함 할 수 있습니다.) 이것 기능은 실제로 Oracle Original의 개선입니다. 이 깨진 코드를 생성하지 않기 때문에referrer_key.key_string또는referrer_key.referrer_type견적을 포함하십시오 점수.

예 38-7. 문자열로 절차를 포팅합니다 조작 및Out매개 변수PL/SQLto토토 핫/pgsql

다음OraclePL/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);
끝;
/
오류 표시;

여기에 가능한 번역이 있습니다PL/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');

예 38-8. 절차 포팅PL/SQLtoPL/PGSQL

Oracle 버전 :

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

    a_running_job_count 0 인 경우
        저지르다; - 무료 잠금(3)rase_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)END 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;