科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道Oracle中如何直接运行OS命令

Oracle中如何直接运行OS命令

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

  在Oracle 8i中,往往会出现要在存储过程中运行操作系统命令的情况。一般来说,利用Oracle EntERPrise Manager设定作业时可以达到这个目的。但是由于OEM在设定作业缺乏灵活性,设定的作业的参数是固定的。

作者:中国IT实验室 来源:中国IT实验室 2007年10月7日

关键字: ORACLE

  • 评论
  • 分享微博
  • 分享邮件

在本页阅读全文(共2页)


  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;
  
  [page]
  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>
  
  DBMS_PIPE的用法见Oracle的文档。

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章