여기에Oracle PL/SQL기능 :

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

이 기능을 살펴보고에 비해 차이점을 보자.토토 사이트/pgsql:

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

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

다음 절차는 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 varchar2,
                 varchar2의 v_domain, varchar2의 v_url) return varchar2가 시작됩니다. ';

    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 ()는 $ func $로
선언하다
    참조 _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_string22969_23148referrer_key.key_string또는referrer_key.referrer_type견적 표시 포함.

다음OraclePL/SQL 절차는 URL을 구문 분석하고 여러 요소 (호스트, 경로 및 쿼리)를 반환하는 데 사용됩니다.

이것은 Oracle 버전입니다 :

절차 작성 또는 교체 CS_PARSE_URL (
    Varchar2의 v_url,
    v_host out varchar2 - 이것은 다시 전달됩니다
    V_PATH OUT VARCHAR2 - 이것도
    v_query out varchar2) - 그리고 이것
이다
    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;

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

select * from cs_parse_url ( 'http://foobar.com/query.cgi?baz');

Oracle 버전 :

절차 작성 또는 교체 CS_CREATE_JOB (v_JOB_ID Integer)는 IS입니다
    a_running_job_count 정수;
시작하다
    독점 모드에서 잠금 테이블 CS_JOBS;

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

    a_running_job_count 0 인 경우
        저지르다; - 무료 잠금
        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, now ())에 삽입;
    예외
        dup_val_on_index 일 때 null; - 이미 존재하는지 걱정하지 마십시오
    끝;
    저지르다;
끝;
/
오류 표시

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

절차 작성 또는 교체 CS_CREATE_JOB (V_JOB_ID Integer)를 $$
선언하다
    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;