知识大全在oracle中运行OS命令

Posted 2022-07-16 命令

篇首语：怀抱观古今，寝食展戏谑。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全在oracle中运行OS命令相关的知识，希望对你有一定的参考价值。

在oracle中运行OS命令 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　　　在Oracle i中往往会出现要在存储过程中运行操作系统命令的情况一般来说利用Oracle Enterprise Manager设定作业时可以达到这个目的但是由于OEM在设定作业缺乏灵活性设定的作业的参数是固定的在实际应用当中往往需要在SQL语句当中运行需要随时运行操作系统命令 Oracle i没有直接运行OS命令的语句我们可以利用DBMS_PIPE程序包实现这一要求　　DBMS_PIPE通过创建管道可以让至少两个进程进行通信 Oracle的管道与操作系统的管道在概念上有相同的地方但是在实现机制不同　　下面介绍实现具体步骤: 　　创建一个程序包姑且起名叫DAEMON SQL语句如下: 　　/*创建daemon程序包*/ 　　CREATE OR REPLACE PACKAGE BODY daemon AS 　　/*execute_system是实现运行os命令的函数*/ 　　FUNCTION execute_system(mand VARCHAR 　　timeout NUMBER DEFAULT ) 　　RETURN NUMBER IS 　　status NUMBER; 　　result VARCHAR ( ); 　　mand_code NUMBER; 　　pipe_name VARCHAR ( ); 　　BEGIN 　　pipe_name := DBMS_PIPE UNIQUE_SESSION_NAME; 　　DBMS_PIPE PACK_MESSAGE( SYSTEM ); 　　DBMS_PIPE PACK_MESSAGE(pipe_name); 　　DBMS_PIPE PACK_MESSAGE(mand); 　　/*向daemon管道发送表示命令的字符*/ 　　status := DBMS_PIPE SEND_MESSAGE( daemon timeout); 　　IF status <> THEN 　　RAISE_APPLICATION_ERROR( 　　 Execute_system: Error while sending Status = || status); 　　END IF; 　　status := DBMS_PIPE RECEIVE_MESSAGE(pipe_name timeout); 　　IF status <> THEN 　　RAISE_APPLICATION_ERROR( 　　 Execute_system: Error while receiving 　　Status = || status); 　　END IF; 　　/*获取返回结果*/ 　　DBMS_PIPE UNPACK_MESSAGE(result); 　　IF result <> done THEN 　　RAISE_APPLICATION_ERROR( 　　 Execute_system: Done not received ); 　　END IF;　　DBMS_PIPE UNPACK_MESSAGE(mand_code); 　　DBMS_OUTPUT PUT_LINE( System mand executed result = || 　　mand_code); 　　RETURN mand_code; 　　END execute_system; 　　/*stop是让daemon停止*/ 　　PROCEDURE stop(timeout NUMBER DEFAULT ) IS 　　status NUMBER; 　　BEGIN 　　DBMS_PIPE PACK_MESSAGE( STOP ); 　　status := DBMS_PIPE SEND_MESSAGE( daemon timeout); 　　IF status <> THEN 　　RAISE_APPLICATION_ERROR( 　　 stop: error while sending status = || status); 　　END IF; 　　END stop; 　　END daemon;　　通过Sql*Plus运行以上语句将为当前用户创建daemon程序包　　创建在OS上运行的守护进程监听由上面的daemon程序包发来的要求执行os命令的语句以下Pro*C的代码必须由pro*c先进行预编译　　#include 　　#include 　　EXEC SQL INCLUDE SQLCA; 　　EXEC SQL BEGIN DECLARE SECTION; 　　char *uid = scott/tiger ;/*在这个地方改为你自己访问的用户密码服务名*/ 　　int status; 　　VARCHAR mand[ ]; 　　VARCHAR value[ ]; 　　VARCHAR return_name[ ]; 　　EXEC SQL END DECLARE SECTION; 　　void 　　connect_error() 　　　　char msg_buffer[ ]; 　　int msg_length; 　　int buffer_size = ; 　　EXEC SQL WHENEVER SQLERROR CONTINUE; 　　sqlglm(msg_buffer &buffer_size &msg_length); 　　printf( Daemon error while connecting:\\n ); 　　printf( % *s\\n msg_length msg_buffer); 　　printf( Daemon quitting \\n ); 　　exit( ); 　　void 　　sql_error() 　　　　char msg_buffer[ ]; 　　int msg_length; 　　int buffer_size = ;　　EXEC SQL WHENEVER SQLERROR CONTINUE; 　　sqlglm(msg_buffer &buffer_size &msg_length); 　　printf( Daemon error while executing:\\n ); 　　printf( % *s\\n msg_length msg_buffer); 　　printf( Daemon continuing \\n ); 　　　　main() 　　　　EXEC SQL WHENEVER SQLERROR DO connect_error(); 　　EXEC SQL CONNECT :uid; 　　printf( Daemon connected \\n ); 　　　　EXEC SQL WHENEVER SQLERROR DO sql_error(); 　　printf( Daemon waiting \\n ); 　　while ( ) 　　EXEC SQL EXECUTE 　　BEGIN 　　/*接收deamon发来的字符*/ 　　:status := DBMS_PIPE RECEIVE_MESSAGE( daemon ); 　　IF :status = THEN 　　/*取出字符*/ 　　DBMS_PIPE UNPACK_MESSAGE(:mand); 　　END IF; 　　END; 　　END EXEC; 　　IF (status == ) 　　　　mand arr[mand len] = \\ ; 　　/*如果是stop 该进程就退出*/ 　　IF (!strcmp((char *) mand arr STOP )) 　　　　printf( Daemon exiting \\n ); 　　break; 　　　　　　ELSE IF (!strcmp((char *) mand arr SYSTEM )) 　　　　EXEC SQL EXECUTE 　　BEGIN 　　DBMS_PIPE UNPACK_MESSAGE(:return_name); 　　DBMS_PIPE UNPACK_MESSAGE(:value); 　　END; 　　END EXEC; 　　value arr[value len] = \\ ; 　　printf( Will execute system mand %s \\n value arr); 　　/*运行os命令*/ 　　status = system(value arr); 　　EXEC SQL EXECUTE 　　BEGIN 　　DBMS_PIPE PACK_MESSAGE( done ); 　　DBMS_PIPE PACK_MESSAGE(:status); 　　:status := DBMS_PIPE SEND_MESSAGE(:return_name); 　　END; 　　END EXEC; 　　　　IF (status) 　　　　printf 　　( Daemon error while responding to system mand ); 　　printf( status: %d\\n status); 　　　　　　ELSE 　　　　printf 　　( Daemon error: invalid mand %s received \\n 　　mand arr); 　　　　　　ELSE 　　　　printf( Daemon error while waiting for signal ); 　　printf( status = %d\\n status); 　　　　　　EXEC SQL MIT WORK RELEASE; 　　exit( ); 　　 cha138/Article/program/Oracle/201311/17426

知识大全 在oracle中运行OS命令

知识大全在oracle中运行OS命令