如何在Perl中打开外部命令（sqlplus）并连续使用它而无需重新启动

Question

我是Perl脚本的初学者。 并且正在编写打开外部命令（sqlplus）的perl脚本。 我想使用预先设置打开sqlplus，并定期获取会话信息。 也就是说，用（oradebug setmypid）和（oradebug direct_access set mode = unsafe）打开sqlplus之后，我想连续发送检索查询（oradebug direct_access select * from x \\ $ ksuse \\ n），而无需重新启动sqlplus。

以下代码可能使您更好地理解我的问题

my $set = "oradebug setmypid;\n oradebug direct_access set mode=unsafe;\n oradebug direct_access select * from x\$ksuse\n";
open(PIPE, '|-', "/opt/oracle/product/11.2.0/db_1/bin/sqlplus -prelim system/oracle as sysdba");

print PIPE $set;    #if I call this call continuously, it means I open sqlplus again, again...This is not what I want^^

打开sqlplus一次后，有什么方法可以连续运行检索查询吗？

先感谢您

Answer 1

一般来说， Expect具有相当的能力。 与交互式shell命令交互时，要处理许多复杂的事情，Expect可以为您处理其中的许多问题。

但是我必须问您是否确定这是最好的方法（从perl与sqlplus进行接口连接）？ 我对Oracle专家的了解还不足以了解您的代码想要实现的目标，但是您是否尝试过sqlplus start语法

在query.sql ：

oradebug setmypid;
oradebug direct_access set mode=unsafe;
oradebug direct_access select * from x$ksuse;
exit;

在外壳中：

/opt/oracle/product/11.2.0/db_1/bin/sqlplus -prelim system/oracle as sysdba @query >data.txt

这会将data.txt和结果一起放在当前的工作目录中。

另外，perl DBI也相当有能力，尽管我必须说我不明白您的代码正在尝试做什么，所以我不知道DBI是否能够为您提供帮助。 Google是您的朋友。

希望这可以帮助！