在Oracle运行操作系统命令

领测软件测试网 DBMS_PIPE.UNPACK_MESSAGE(:command); 
 　　   END IF;
    END;
    END-EXEC;
    IF (status == 0)
    { 
   　　 command.arr[command.len] = ''\0''; 
  　　  /*如果是stop,该进程就退出*/ 
  　　  IF (!strcmp((char *) command.arr, "STOP")) 
  　　  { 
  　　　　  printf("Daemon exiting.\n"); 
 　　　　   break; 
  　　  }

 　　   ELSE IF (!strcmp((char *) command.arr, "SYSTEM")) 
 　　   {
　　　　    EXEC SQL EXECUTE
　　　　    BEGIN 
   　　　　　　 DBMS_PIPE.UNPACK_MESSAGE(:return_name); 
  　　　　　　  DBMS_PIPE.UNPACK_MESSAGE(:value); 
  　　　　  END; 
 　　　　   END-EXEC; 
  　　　　  value.arr[value.len] = ''\0''; 
  　　　　  printf("Will execute system command ''%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 command."); 
 　　　　   printf(" status: %d\n", status); 
 　　   } 
  　　  } 
   　　 ELSE 
 　　   { 
 　　　　   printf 
  　　　　  ("Daemon error: invalid command ''%s'' received.\n", 
  　　　　  command.arr); 
   　　 } 
  　　  } 
   　　 ELSE 
 　　   { 
 　　　　   printf("Daemon error while waiting for signal."); 
  　　　　  printf(" status = %d\n", status); 
  　　  } 
  　　  } 
   　　 EXEC SQL COMMIT WORK RELEASE; 
   　　 exit(0);
    }
    以上代码起名为daemon.pc,用proc预编译:

    proc iname=daemon.pc userid=用户名/密码@服务名 sqlcheck=semantics

    得到daemon.c,在用c进行编译,注意在NT上要把orasql8.lib加上,否则编译通过,连接没法通过.
　　3、在服务器上运行daemon.exe
　　4、在sqlplus运行测试语句:
　　SQL> variable rv number
　　SQL> execute :rv := DAEMON.EXECUTE_SYSTEM(''ls -la'');
　　PL/SQL 过程已成功完成。
　　SQL> execute :rv := DAEMON.EXECUTE_SYSTEM(''dir'');
　　PL/SQL 过程已成功完成。
　　SQL>

文章来源于领测软件测试网 https://www.ltesting.net/