在Oracle 8i中，往往會出現(xiàn)要在存儲過程中運行操作系統(tǒng)命令的情況。一般來說，利用Oracle Enterprise Manager設(shè)定作業(yè)時可以達到這個目的。但是由于OEM在設(shè)定作業(yè)缺 乏靈活性，設(shè)定的作業(yè)的參數(shù)是固定的。在實際應(yīng)用當中往往需要在SQL語句當中運行需要隨時運行操作系統(tǒng)命令。Oracle 8i沒有直接運行OS命令的語句，我們可以利用DBMS_PIPE程序包實現(xiàn)這一要求。 DBMS_PIPE通過創(chuàng)建管道，可以讓至少兩個進程進行通信。Oracle的管道與操作系統(tǒng)的管道在概念上有相同的地方，但是在實現(xiàn)機制不同。 下面介紹實現(xiàn)具體步驟: 1、創(chuàng)建一個程序包，姑且起名叫DAEMON，SQL語句如下: /*創(chuàng)建daemon程序包*/ CREATE OR REPLACE PACKAGE BODY daemon AS /*execute_system是實現(xiàn)運行os命令的函數(shù)*/ FUNCTION execute_system（command VARCHAR2， timeout NUMBER DEFAULT 10） RETURN NUMBER IS status NUMBER； result VARCHAR2（20）； command_code NUMBER； pipe_name VARCHAR2（30）； BEGIN pipe_name := DBMS_PIPE.UNIQUE_SESSION_NAME； DBMS_PIPE.PACK_MESSAGE（'SYSTEM'）； DBMS_PIPE.PACK_MESSAGE（pipe_name）； DBMS_PIPE.PACK_MESSAGE（command）； /*向daemon管道發(fā)送表示命令的字符*/ status := DBMS_PIPE.SEND_MESSAGE（'daemon'， timeout）； IF status <> 0 THEN RAISE_APPLICATION_ERROR（-20010， 'Execute_system: Error while sending. Status = ' status）； END IF；status := DBMS_PIPE.RECEIVE_MESSAGE（pipe_name， timeout）； IF status <> 0 THEN RAISE_APPLICATION_ERROR（-20011， 'Execute_system: Error while receiving. Status = ' status）； END IF； /*獲取返回結(jié)果*/ DBMS_PIPE.UNPACK_MESSAGE（result）； IF result <> 'done' THEN RAISE_APPLICATION_ERROR（-20012， 'Execute_system: Done not received.'）； END IF； DBMS_PIPE.UNPACK_MESSAGE（command_code）； DBMS_OUTPUT.PUT_LINE（'System command executed. result = ' command_code）； RETURN command_code； END execute_system； /*stop是讓daemon停止*/ PROCEDURE stop（timeout NUMBER DEFAULT 10） IS status NUMBER； BEGIN DBMS_PIPE.PACK_MESSAGE（'STOP'）； status := DBMS_PIPE.SEND_MESSAGE（'daemon'， timeout）； IF status <> 0 THEN RAISE_APPLICATION_ERROR（-20030， 'stop: error while sending. status = ' status）； END IF； END stop； END daemon；通過Sql*Plus運行以上語句，將為當前用戶創(chuàng)建daemon程序包。 2、創(chuàng)建在OS上運行的守護進程，監(jiān)聽由上面的daemon程序包發(fā)來的要求執(zhí)行os命令的語句。以下Pro*C的代碼，必須由pro*c先進行預(yù)編譯。 #include #include EXEC SQL INCLUDE SQLCA； EXEC SQL BEGIN DECLARE SECTION； char *uid = 'scott/tiger';/*在這個地方改為你自己訪問的用戶，密碼，服務(wù)名*/ int status； VARCHAR command； VARCHAR value[2000]； VARCHAR return_name[30]； EXEC SQL END DECLARE SECTION； void connect_error（） { char msg_buffer[512]； int msg_length； int buffer_size = 512；