oracle命令窗口exec,Oracle如何直接运行OS命令(下)

正在看的ORACLE教程是:Oracle如何直接运行OS命令(下)。　　EXEC SQL WHENEVER SQLERROR CONTINUE&＃xff1b;

sqlglm(msg_buffer&＃xff0c; &buffer_size&＃xff0c; &msg_length)&＃xff1b;

printf("Daemon error while connecting:\n")&＃xff1b;

printf("%.*s\n"&＃xff0c; msg_length&＃xff0c; msg_buffer)&＃xff1b;

printf("Daemon quitting.\n")&＃xff1b;

exit(1)&＃xff1b;

}

void

sql_error()

{

char msg_buffer[512]&＃xff1b;

int msg_length&＃xff1b;

int buffer_size &＃61; 512&＃xff1b;

EXEC SQL WHENEVER SQLERROR CONTINUE&＃xff1b;

sqlglm(msg_buffer&＃xff0c; &buffer_size&＃xff0c; &msg_length)&＃xff1b;

printf("Daemon error while executing:\n")&＃xff1b;

printf("%.*s\n"&＃xff0c; msg_length&＃xff0c; msg_buffer)&＃xff1b;

printf("Daemon continuing.\n")&＃xff1b;

}

main()

{

EXEC SQL WHENEVER SQLERROR DO connect_error()&＃xff1b;

EXEC SQL CONNECT :uid&＃xff1b;

printf("Daemon connected.\n")&＃xff1b;

EXEC SQL WHENEVER SQLERROR DO sql_error()&＃xff1b;

printf("Daemon waiting...\n")&＃xff1b;

while (1) {

EXEC SQL EXECUTE

BEGIN

/*接收deamon发来的字符*/

:status :&＃61; DBMS_PIPE.RECEIVE_MESSAGE(&＃39;daemon&＃39;)&＃xff1b;

IF :status &＃61; 0 THEN

/*取出字符*/

DBMS_PIPE.UNPACK_MESSAGE(:command)&＃xff1b;

END IF&＃xff1b;

END&＃xff1b;

END-EXEC&＃xff1b;

IF (status &＃61;&＃61; 0)

{

command.arr[command.len] &＃61; &＃39;\0&＃39;&＃xff1b;

/*如果是stop&＃xff0c;该进程就退出*/

IF (!strcmp((char *) command.arr&＃xff0c; "STOP"))

{

printf("Daemon exiting.\n")&＃xff1b;

break&＃xff1b;

}

ELSE IF (!strcmp((char *) command.arr&＃xff0c; "SYSTEM"))

{

EXEC SQL EXECUTE

BEGIN

DBMS_PIPE.UNPACK_MESSAGE(:return_name)&＃xff1b;

DBMS_PIPE.UNPACK_MESSAGE(:value)&＃xff1b;

END&＃xff1b;

END-EXEC&＃xff1b;

value.arr[value.len] &＃61; &＃39;\0&＃39;&＃xff1b;

printf("Will execute system command &＃39;%s&＃39;\n"&＃xff0c; value.arr)&＃xff1b;

/*运行os命令*/

status &＃61; system(value.arr)&＃xff1b;

EXEC SQL EXECUTE

BEGIN

DBMS_PIPE.PACK_MESSAGE(&＃39;done&＃39;)&＃xff1b;

DBMS_PIPE.PACK_MESSAGE(:status)&＃xff1b;

:status :&＃61; DBMS_PIPE.SEND_MESSAGE(:return_name)&＃xff1b;

END&＃xff1b;

END-EXEC&＃xff1b;　　IF (status)

{

printf

("Daemon error while responding to system command.")&＃xff1b;

printf(" status: %d\n"&＃xff0c; status)&＃xff1b;

}

}

ELSE

{

printf

("Daemon error: invalid command &＃39;%s&＃39; received.\n"&＃xff0c;  command.arr)&＃xff1b;

}

}

ELSE

{

printf("Daemon error while waiting for signal.")&＃xff1b;

printf(" status &＃61; %d\n"&＃xff0c; status)&＃xff1b;

}

}

EXEC SQL COMMIT WORK RELEASE&＃xff1b;

exit(0)&＃xff1b;

}

以上代码起名为daemon.pc&＃xff0c;用proc预编译:

proc iname&＃61;daemon.pc userid&＃61;用户名/密码&＃64;服务名 sqlcheck&＃61;semantics

得到daemon.c&＃xff0c;在用c进行编译&＃xff0c;注意在NT上要把orasql8.lib加上&＃xff0c;否则编译通过&＃xff0c;连接没法通过。

3、在服务器上运行daemon.exe

4、在sqlplus运行测试语句:

SQL> variable rv number

SQL> execute :rv :&＃61; DAEMON.EXECUTE_SYSTEM(&＃39;ls -la&＃39;)&＃xff1b;

PL/SQL 过程已成功完成。

SQL> execute :rv :&＃61; DAEMON.EXECUTE_SYSTEM(&＃39;dir&＃39;)&＃xff1b;

PL/SQL 过程已成功完成。

SQL>

DBMS_PIPE的用法见oracle的文档。

<