如何在交互式程序中使用输入重定向和手动输入？

Question

我有一个程序的可执行文件，用 Fortran 编写，需要交互式输入，例如 20 个输入。我想要的是通过输入重定向提供前 19 个输入，但最后一个来自我的键盘。原因是当我运行程序时我收到一条消息

file list_wall.dat written - modify it to group walls
modify wallList.dat (add flag type) - enter 1 when ready

所以在我按 1 之前，我需要手动修改一个文件，然后手动按 1。我试过这样运行它

./my_interactive_program < input.in

我在这个 input.in 文件中写入了前 19 行。 但是，当它到达最后一行时，我会收到这样的消息：

$forrtl: severe (24): end-of-file during read, unit -4, file stdin

因此，它不会等待我从键盘输入，而是检测到文件的结尾并且程序崩溃。 我能做点什么吗？

Answer 1

如果您可以预先向用户询问第 20 次输入：

read -p "input 20: " inp
{ cat input.in; echo "$inp"; } | ./my_interactive_program

否则，expect 是你可以使用的大锤：

expect <<'END'
spawn ./my_interactive_program
set fh [open input.in r]
while {[gets $fh line] != -1} {
    send -- "$line\r"
}
close $fh
interact
END

Answer 2

你可以做一个 .sh 文件，输出所有输入（你还在我身边吗？:)，要求用户输入，然后输出：

echo hello
echo world
read input
echo $input

然后运行该 .sh 文件并通过您的 fortran 程序通过管道输出。

Answer 3

自动化交互式程序的灵活工具是expect。您可以使用它将任意输入（例如，从文件中读取并计算行数）提供给您的 fortran 程序。到达提示符后，您发出命令 interact 并期望将控制权传递给终端的标准输入。