linux - 在特定终端中通过 Perl 运行 shell 命令

Question

首先，我是 Perl 的新手，所以我可能遗漏了一些明显的东西。这不是典型的“我想通过 Perl 运行 shell 命令”的问题。

我不想捕获所有的 shell 输出。我有一个程序/脚本可以智能地写入终端。我没有写它，也不知道它是如何工作的，但它似乎在打印一些初始化后将 View 移动到适当的位置，然后删除以前的终端输出并覆盖它(更新)直到它最终完成。我想从我的 perl 脚本中调用它，而不是将所有内容都打印到一个文件中，然后再抓取它，因为打印到一个文件中并不能保持打印输出的智能。

我需要做的就是:

1. 在我的 perl 脚本中打开一个 xterm
2. 在那个终端中进行系统调用
3. 让那个终端保持运行，直到我手动退出它

我可以在 perl 中执行此操作吗？

谢谢。

Answer 1

system 'xterm', '-hold', '-e', $program;

其中 $program 是您要运行的终端感知程序。

-hold 使 xterm 在程序退出后保持打开状态，等待您手动关闭它。

-e 指定要运行的程序或命令行。它及其参数必须出现在 xterm 命令行的最后。