人为的无限循环即停止方法

   有一些程序，比如系统监控工具，就应该是永远执行。这种情况下，就会需要人为的无限循环：            

   loop

   data_gathering_procedure;

   end loop;

  由于持续的运行对cpu资源消耗严重，为了避免资源耗费殆尽，病保证数据收集过程尽可能有效的运行，

所以需要循环在运行中适当的暂停。

 loop

 data_gathering_procedure;

 dbms_lock.sleep(10) ;      //10秒内不作任何事情

end loop；

当然 ，那么我们又如何结束这种无限的循环呢？通常我们都是以存储过程形式运行，即便杀掉前台进程也不会终止后台进程。我们可以使用alter system kill session，但在某些版本的oracle中这个命令并不会杀掉一个卡在循环中的会话。

所以我们必须求助于操作系统的工具了，比如unix/linux平台的kill以及windows的orakill.exe.这些工具需要知道oracle的系统进程的ID，在V$SSEION和V$PROCESS中很容易查出。

当然我们还有更好的方法解决这个问题，在循环中插入一个“命令解释器”，然后通过数据库内置的进程间通讯机制来发送命令即数据库通道。

  declare

   pipename constant varchar2(12):='signaler';

   result integer;

   pipebuf   varchar2(64);

   begin

  /* 创建一个指定名字的私有管道*/

   result:=dbms_pipe.create_pipe(pipename);

   loop

   data_gathering_procedure;

   dbms_lock.sleep(10);

   /*检查管道是否有信息*/

   if dbms_pipe.receive_message(pipename ,0)=0

   then

   dbms_pipe.unpack_message(pipebuf);

   exit when pipebuf='stop';

   end if;

  end loop;

end; 

    现在可以构造一个简单地伙伴程序，这个程序只需要通过在管道中发送一个‘stop‘就可以终止这个循环的运行。

   declare

   pipename varchar2(12):='signaler';

   result integer :=dbms_pipe.create_pipe(pipename);

   begin

   dbms_pipe.pack_message('stop');

  end;