当前位置:Gxlcms > mysql > Oracle如何直接运行OS命令(下)第1/2页

Oracle如何直接运行OS命令(下)第1/2页

时间:2021-07-01 10:21:17 帮助过:12人阅读

Oracle如何直接运行OS命令(下)

正在看的ORACLE教程是:Oracle如何直接运行OS命令(下)。  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(1);
  }

  void
  sql_error()
  {
  char msg_buffer[512];
  int msg_length;
  int buffer_size = 512;

  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 (1) {
  EXEC SQL EXECUTE
  BEGIN
  /*接收deamon发来的字符*/
  :status := DBMS_PIPE.RECEIVE_MESSAGE('daemon');
  IF :status = 0 THEN
  /*取出字符*/
  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;

人气教程排行