Đây làOracle kèo bóng đá c1chức kèo bóng đá c1:

Tạo hoặc thay thế chức kèo bóng đá c1 CS_FMT_BROWSER_VESTER (V_NAME VARCHAR2,
                                                  v_version varchar2)
Trả về Varchar2 là
BẮT ĐẦU
    Nếu v_version là null thì
        Trả lại v_name;
    Kết thúc nếu;
    Trả lại v_name || '/' || v_version;
KẾT THÚC;
/
Hiển thị lỗi;

Hãy xem qua chức kèo bóng đá c1 này và xem sự khác biệt so vớiPL/PGSQL:

Đây là cách chức kèo bóng đá c1 này trông như thế nào khi được chuyển sangPostgreSQL:

Tạo hoặc thay thế chức kèo bóng đá c1 cs_fmt_browser_version (v_name varchar,
                                                  v_version varchar)
Trả lại varchar là $$
BẮT ĐẦU
    Nếu v_version là null thì
        Trả lại v_name;
    Kết thúc nếu;
    Trả lại v_name || '/' || v_version;
KẾT THÚC;
$$ ngôn ngữ plpgsql;

Quy trình sau lấy hàng từ AChọnTuyên bố và xây dựng kèo bóng đá c1 hàm lớn với kết quả trongnếuCâu lệnh, vì lợi ích của hiệu quả.

20371_20400

Tạo hoặc thay thế thủ tục CS_UPDATE_REFERRER_TYPE_PROC IS
    Giới thiệu con trỏ_Keys là
        Chọn * Từ CS_Referrer_Keys
        Đặt hàng bởi try_order;
    func_cmd varchar (4000);
BẮT ĐẦU
    func_cmd: = 'tạo hoặc thay thế chức kèo bóng đá c1 cs_find_referrer_type (v_host trong varchar2,
                 v_domain trong varchar2, v_url trong varchar2) return varchar2 bắt đầu ';

    Cho người giới thiệu_key trong giới thiệu_keys vòng lặp
        func_cmd: = func_cmd ||
          'Nếu v_' || giới thiệu_key.kind
          || 'Thích' '' || giới thiệu_key.key_string
          || '' 'Sau đó trả về' '' || giới thiệu_key.referrer_type
          || '' '; Kết thúc nếu; ';
    Kết thúc vòng lặp;

    func_cmd: = func_cmd || 'Trả lại null; KẾT THÚC;';

    Thực hiện func_cmd ngay lập tức;
KẾT THÚC;
/
Hiển thị lỗi;

Đây là cách chức kèo bóng đá c1 này kết thúc trongPostgreSQL:

Tạo hoặc thay thế quy trình CS_UPDATE_REFERRER_TYPE_PROC () như $ func $
TUYÊN BỐ
    Giới thiệu_Keys con trỏ là
        Chọn * Từ CS_Referrer_Keys
        Đặt hàng bởi try_order;
    văn bản func_body;
    văn bản func_cmd;
BẮT ĐẦU
    func_body: = 'bắt đầu';

    Cho người giới thiệu_key trong giới thiệu_keys vòng lặp
        func_body: = func_body ||
          'Nếu v_' || giới thiệu_key.kind
          || 'Thích' || QUOTE_LITHER (giới thiệu_key.key_string)
          || 'Sau đó trả lại' || QUOTE_LITHER (giới thiệu_key.referrer_type)
          || '; Kết thúc nếu; ' ;
    Kết thúc vòng lặp;

    func_body: = func_body || 'Trả lại null; KẾT THÚC;';

    func_cmd: =
      'Tạo hoặc thay thế chức kèo bóng đá c1 cs_find_referrer_type (v_host varchar,
                                                        v_domain varchar,
                                                        v_url varchar)
        Trả về varchar là '
      || quote_literal (func_body)
      || 'Ngôn ngữ plpgsql;' ;

    Thực thi func_cmd;
KẾT THÚC;
$ func $ ngôn ngữ plpgsql;

Lưu ý cách cơ thể của chức kèo bóng đá c1 được xây dựng riêng biệt và được truyền quaquote_literal22432_22635giới thiệu_key.key_stringTrường. (Chúng tôi đang giả sử ở đây rằnggiới thiệu_key.kindcó thể được tin tưởng để luôn luôn làhost, DOMAINhoặcurl, nhưnggiới thiệu_key.key_stringCó thể là bất cứ điều gì, đặc biệt là nó có thể chứa các dấu hiệu đô la.) Hàm này thực sự là kèo bóng đá c1 cải tiến trên bản gốc của Oracle, vì nó sẽ không tạo ra mã bị hỏng khigiới thiệu_key.key_stringhoặcgiới thiệu_key.referrer_typechứa dấu ngoặc kép.

sau đâyOracleQuy trình kèo bóng đá c1 được sử dụng để phân tích URL và trả về một số phần tử (máy chủ, đường dẫn và truy vấn).

Đây là phiên bản Oracle:

Tạo hoặc thay thế thủ tục CS_PARSE_URL (
    v_url trong varchar2,
    v_host out varchar2, - điều này sẽ được truyền lại
    v_path out varchar2, - cái này cũng vậy
    v_query out varchar2) - và cái này
LÀ
    Số nguyên A_POS1;
    Số nguyên A_POS2;
BẮT ĐẦU
    v_host: = null;
    v_path: = null;
    V_Query: = null;
    a_pos1: = uster (v_url, '//');

    Nếu a_pos1 = 0 thì
        TRỞ LẠI;
    Kết thúc nếu;
    a_pos2: = uster (v_url, '/', a_pos1 + 2);
    Nếu a_pos2 = 0 thì
        V_host: = Subrtr (V_URL, A_POS1 + 2);
        v_path: = '/';
        TRỞ LẠI;
    Kết thúc nếu;

    V_host: = Subrtr (V_URL, A_POS1 + 2, A_POS2 - A_POS1 - 2);
    a_pos1: = uster (v_url, '?', a_pos2 + 1);

    Nếu a_pos1 = 0 thì
        v_path: = Subrtr (V_URL, A_POS2);
        TRỞ LẠI;
    Kết thúc nếu;

    V_Path: = Subrtr (V_URL, A_POS2, A_POS1 - A_POS2);
    V_Query: = Subrtr (V_URL, A_POS1 + 1);
KẾT THÚC;
/
Hiển thị lỗi;

Đây là bản dịch có thể thànhPL/PGSQL:

25727_26623

Hàm này có thể được sử dụng như thế này:

Chọn * từ cs_parse_url ('http://foobar.com/query.cgi?baz');

Phiên bản Oracle:

Tạo hoặc thay thế thủ tục CS_CREATE_JOB (V_JOB_ID in Integer) IS
    A_Rasty_Job_Count Integer;
BẮT ĐẦU
    Bảng khóa CS_JOBS ở chế độ độc quyền;

    Chọn Đếm (*) vào a_rasty_job_count từ cs_jobs trong đó end_stamp là null;

    Nếu a_rasty_job_count 0 thì
        LÀM; - Khóa miễn phí
        RAISE_APPLICATION_ERROR (-20000,
                 'Không thể tạo kèo bóng đá c1 công việc mới: kèo bóng đá c1 công việc hiện đang chạy.');
    Kết thúc nếu;

    Xóa khỏi CS_Active_Job;
    Chèn vào các giá trị CS_Active_Job (Job_id) (v_job_id);

    BẮT ĐẦU
        Chèn vào các giá trị CS_JOBS (JOB_ID, start_stamp) (v_job_id, now ());
    NGOẠI LỆ
        Khi DUP_VAL_ON_INDEX thì NULL; - Đừng lo lắng nếu nó đã tồn tại
    KẾT THÚC;
    LÀM;
KẾT THÚC;
/
Hiển thị lỗi

Đây là cách chúng tôi có thể chuyển thủ tục này đếnPL/PGSQL:

Tạo hoặc thay thế quy trình
TUYÊN BỐ
    A_Rasty_Job_Count Integer;
BẮT ĐẦU
    Bảng khóa CS_JOBS ở chế độ độc quyền;

    Chọn Đếm (*) vào a_rasty_job_count từ cs_jobs trong đó end_stamp là null;

    Nếu a_rasty_job_count 0 thì
        LÀM; - Khóa miễn phí
        Tăng ngoại lệ 'Không thể tạo kèo bóng đá c1 công việc mới: kèo bóng đá c1 công việc hiện đang chạy'; -(1)
    Kết thúc nếu;

    Xóa khỏi CS_Active_Job;
    Chèn vào các giá trị CS_Active_Job (Job_id) (v_job_id);

    BẮT ĐẦU
        Chèn vào các giá trị CS_JOBS (JOB_ID, start_stamp) (v_job_id, now ());
    NGOẠI LỆ
        Khi độc đáo_violation thì -(2)
            - Đừng lo lắng nếu nó đã tồn tại
    KẾT THÚC;
    LÀM;
KẾT THÚC;
$$ ngôn ngữ plpgsql;