当在 perl 脚本中执行命令时，perl 可以响应命令中提出的 STDOUT 请求吗？

Question

我正在 perl 脚本内执行一个命令，当该命令完成时，会向 STDOUT 发送一个问题，请求对问题给出 Y 或 N 答案。如果没有给出答案（即我只是结束脚本），那么我们的 shell 中有一个挂起的进程等待答案。我怎样才能提供所需的 Y 答案？

Perl v5.8.4 索拉里斯10

Answer 1

• 最简单：

  使用 shell 的能力将“Y”重定向到命令的 STDIN：

  `回显“Y”| your_command_expecting_Y`;
  

  或者（稍差但更灵活）。

  `your_command_expecting_Y < /我的/文件/包含/一个/行/with_Y_in_it.txt`; 
  

• 更复杂但无限灵活且 Perl 原生：

  使用Expect模块

  使用Expect；
  # 通过生成另一个进程来创建 Expect 对象
  我的 $exp = Expect->spawn($command, @params);
  $exp->send("Y\n");
  

Answer 2

预期

Answer 3

假设您总是想要回答“Y”并且该命令只会提示一次：

system("echo Y | your_command_here");

如果命令将提示多次并且您总是想要回答“Y”：

system("yes Y | your_command_here");

否则，正如其他人所建议的那样，Expect可能是您的最佳选择。