管道函数dbms_pipe

管道可以用来进程间交互

例子:

会话1：

declare
v_ret number;
v_str varchar2(200);
begin
v_ret := dbms_pipe.create_pipe('pipe_test');
while(v_ret=0)
loop
v_ret := dbms_pipe.receive_message('pipe_test',30);--180秒超时，返回非0值:空值
if v_ret=0 then
dbms_pipe.unpack_message(v_str);
insert into logs values('pipe_test',v_str);
commit;
end if;
end loop;
end;

再执行会话2:

declare
v_ret number :=0;
begin
dbms_pipe.pack_message('first line: hello');
v_ret:= dbms_pipe.send_message('pipe_test');

dbms_lock.sleep(10);

dbms_pipe.pack_message('second line: mjj');
v_ret:= dbms_pipe.send_message('pipe_test');

dbms_lock.sleep(10);

dbms_pipe.pack_message('third line: mjj');
v_ret:= dbms_pipe.send_message('pipe_test');

end;