如何打开命令行应用程序并将其保持打开状态以接受键盘输入

Question

是否可以通过Perl打开第三方命令行，通过它执行一些命令，然后让它打开以接受来自键盘的更多命令？

我们有＆＃39; adminclient＆＃39;来自Oracle的CLI程序。我想通过connect执行adminclient命令，然后让它接受更多手动命令。

我用过，

open ORA, "| adminclient" or die "Can't pipe to adminclient: $!";
print ORA "connect http://xyz:9000 as oggadmin password xxxxxx\n";
print ORA "info all";
close(ORA);

这有效，但一旦完成就会返回shell提示符。在这里，我希望我的adminclient程序保持打开状态，以便手动接受更多命令。

Answer 1

您拥有adminclient的Perl包装器的大部分方式。只需添加

print ORA $_ while <STDIN>

在close之前

，你的Perl程序将接受并从键盘传递命令