oracle 管道化表函数(Pipelined Table) [转]

http://log-cd.javaeye.com/blog/411123

关键字: oracle pipelined table

    在实际的应用中，为了让PL/SQL 函数返回数据的多个行，必须通过返回一个 REF CURSOR 或一个数据集合来完成。REF CURSOR 的这种情况局限于可以从查询中选择的数据，而整个集合在可以返回前，必须进行具体化。 9i 通过引入的管道化表函数纠正了后一种情况。表函数是返回整个行的集（通常作为一个集合）的函数，可以直接从 SQL 语句中进行查询，就好像它是一个真正的数据库表一样。管道化表函数与之相似，但是它像在构建时一样返回数据，而不是一次全部返回。管道化表函数更加有效， 因为数据可以尽可能快地返回。

    管道化表函数必须返回一个集合。在函数中，PIPE ROW 语句被用来返回该集合的单个元素，该函数必须以一个空的 RETURN 语句结束，以表明它已经完成。一旦我们创建了上述函数，我们就可以使用 TABLE 操作符从 SQL 查询中调用它。

例1：
Type Definition

Sql代码

1. CREATE OR REPLACE TYPE COLOR_HEX_CODE AS OBJECT  
2. (  
3.   -- Attributes  
4.   colorName Varchar2(10),  
5.   colorCode varchar2(10)  
6.     
7.   -- Member functions and procedures  
8.   --member procedure <ProcedureName>(<Parameter> <Datatype>)  
9. );  

CREATE OR REPLACE TYPE COLOR_HEX_CODE AS OBJECT (   -- Attributes   colorName Varchar2(10),   colorCode varchar2(10)      -- Member functions and procedures   --member procedure <ProcedureName>(<Parameter> <Datatype>) ); 

Create Table Type

Sql代码

1. CREATE OR REPLACE TYPE COLOR_TYPE AS TABLE OF COLOR_HEX_CODE;  

CREATE OR REPLACE TYPE COLOR_TYPE AS TABLE OF COLOR_HEX_CODE; 

Create Table Function

Sql代码

1. CREATE OR REPLACE FUNCTION F_PIPELINE_TEST RETURN COLOR_TYPE PIPELINED  
2. AS  
3. BEGIN  
4.     PIPE ROW(COLOR_HEX_CODE('black','#000000'));  
5.     PIPE ROW(COLOR_HEX_CODE('white','#FFFFFF'));  
6.     PIPE ROW(COLOR_HEX_CODE('red','#FF0000'));  
7.     PIPE ROW(COLOR_HEX_CODE('green','#00FF00'));  
8.     PIPE ROW(COLOR_HEX_CODE('blue','#0000FF'));  
9.     RETURN;  
10. END;  

CREATE OR REPLACE FUNCTION F_PIPELINE_TEST RETURN COLOR_TYPE PIPELINED AS BEGIN     PIPE ROW(COLOR_HEX_CODE('black','#000000'));     PIPE ROW(COLOR_HEX_CODE('white','#FFFFFF'));     PIPE ROW(COLOR_HEX_CODE('red','#FF0000'));     PIPE ROW(COLOR_HEX_CODE('green','#00FF00'));     PIPE ROW(COLOR_HEX_CODE('blue','#0000FF'));     RETURN; END; 

测试:

Sql代码

1. select * from table( f_pipeline_test );  

结果：
COLORNAME  COLORCODE
black   #000000
white   #FFFFFF
red   #FF0000
green   #00FF00
blue   #0000FF

例2：实现split函数功能

Sql代码

1. CREATE OR REPLACE TYPE RESOLVE_STR IS TABLE OF VARCHAR2 (4000);  

CREATE OR REPLACE TYPE RESOLVE_STR IS TABLE OF VARCHAR2 (4000); 

Sql代码

1. CREATE OR REPLACE FUNCTION F_SPLIT  
2.     (  
3.        P_STR       IN   VARCHAR2,  
4.        P_DELIMITER IN   varchar2  
5.      ) RETURN RESOLVE_STR PIPELINED  
6. AS  
7.     j     INT := 0;  
8.     i     INT := 1;  
9.     len   INT := 0;  
10.     len1  INT := 0;  
11.     tmp   VARCHAR2 (4000);  
12.     v_str VARCHAR2 (4000);  
13. BEGIN  
14.     v_str := TRIM(BOTH P_DELIMITER FROM P_STR);--去掉前后的分隔符  
15.     len := LENGTH (v_str);  
16.     len1 := LENGTH(P_DELIMITER);  
17.   
18.     WHILE j < len  
19.       LOOP  
20.           j := INSTR (v_str, P_DELIMITER, i);--寻分隔符位置  
21.   
22.           IF j = 0 THEN--没有了  
23.               tmp := SUBSTR (v_str, i);  
24.               PIPE ROW (tmp);  
25.               EXIT;--结束  
26.           ELSE  
27.               tmp := SUBSTR (v_str, i, j - i);  
28.               i := j + len1;  
29.               PIPE ROW (tmp);  
30.           END IF;  
31.       END LOOP;  
32.   
33.     RETURN;  
34. END;  

CREATE OR REPLACE FUNCTION F_SPLIT     (        P_STR       IN   VARCHAR2,        P_DELIMITER IN   varchar2      ) RETURN RESOLVE_STR PIPELINED AS     j     INT := 0;     i     INT := 1;     len   INT := 0;     len1  INT := 0;     tmp   VARCHAR2 (4000);     v_str VARCHAR2 (4000); BEGIN     v_str := TRIM(BOTH P_DELIMITER FROM P_STR);--去掉前后的分隔符     len := LENGTH (v_str);     len1 := LENGTH(P_DELIMITER);      WHILE j < len       LOOP           j := INSTR (v_str, P_DELIMITER, i);--寻分隔符位置            IF j = 0 THEN--没有了               tmp := SUBSTR (v_str, i);               PIPE ROW (tmp);               EXIT;--结束           ELSE               tmp := SUBSTR (v_str, i, j - i);               i := j + len1;               PIPE ROW (tmp);           END IF;       END LOOP;      RETURN; END; 

测试：

Sql代码

1. SELECT * FROM TABLE (F_SPLIT('-12-02-ab-cd-a0-ef-', '-'));  

SELECT * FROM TABLE (F_SPLIT('-12-02-ab-cd-a0-ef-', '-')); 

例3：产生6个0..49的随机数
First the quick-and-dirty solution without a pipelined function

Sql代码

1. select r from (  
2.        select r from (  
3.               select rownum r from all_objects where rownum < 50  
4.                      ) order by dbms_random.VALUE  
5.               )where rownum <= 6;  

select r from (        select r from (               select rownum r from all_objects where rownum < 50                      ) order by dbms_random.VALUE               )where rownum <= 6; 

pipelined function

Sql代码

1. CREATE OR REPLACE TYPE ARRAY AS TABLE OF NUMBER;  

CREATE OR REPLACE TYPE ARRAY AS TABLE OF NUMBER; 

Sql代码

1. CREATE OR REPLACE FUNCTION gen_numbers(n IN NUMBER DEFAULT NULL)  
2. RETURN ARRAY PIPELINED  
3. AS  
4.   BEGIN  
5.     FOR i IN 1 .. nvl(n,9999)  
6.     LOOP  
7.     PIPE ROW(i);  
8.     END LOOP;  
9.   RETURN;  
10. END;  

CREATE OR REPLACE FUNCTION gen_numbers(n IN NUMBER DEFAULT NULL) RETURN ARRAY PIPELINED AS   BEGIN     FOR i IN 1 .. nvl(n,9999)     LOOP     PIPE ROW(i);     END LOOP;   RETURN; END; 

测试：

Sql代码

1. select * from (  
2.   select *  
3.     from (select * from table(gen_numbers(49)))  order by dbms_random.random  
4.   )  
5. where rownum <= 6  

select * from (   select *     from (select * from table(gen_numbers(49)))  order by dbms_random.random   ) where rownum <= 6 

generating that range of dates

Sql代码

1. select to_date('2009-5-10','yyyy-mm-dd') + column_value-1 from TABLE(gen_numbers(15));  

select to_date('2009-5-10','yyyy-mm-dd') + column_value-1 from TABLE(gen_numbers(15)); 

Note the name of the column we used: COLUMN_VALUE. That is the default name for the column coming back from the PIPELINED function.
another example

Sql代码

1. CREATE OR REPLACE TYPE date_array AS TABLE OF DATE;  

CREATE OR REPLACE TYPE date_array AS TABLE OF DATE; 

Sql代码

1. CREATE OR REPLACE FUNCTION date_table(sdate DATE, edate DATE)  
2. RETURN date_array PIPELINED AS  
3. BEGIN  
4.   FOR i IN 0 .. (edate - sdate)  
5.   LOOP  
6.     PIPE ROW(sdate + i);  
7.   END LOOP;  
8.   RETURN;  
9. END date_table;  

CREATE OR REPLACE FUNCTION date_table(sdate DATE, edate DATE) RETURN date_array PIPELINED AS BEGIN   FOR i IN 0 .. (edate - sdate)   LOOP     PIPE ROW(sdate + i);   END LOOP;   RETURN; END date_table;