perl - 使用 Perl 向程序提供输入？

Question

我不知道如何提出这个问题。我正在尝试编写一个调用子程序(Fortran 程序)的 Perl 程序，以便子程序转到 stdin 以获取是/否。

有没有一种方法可以让 Perl 提供这个选项，而不让 child 去 STDIN？

由于我的编程词汇量很差，我无法从谷歌那里得到答案。

Answer 1

您可以使用来自管道的输入来启动程序，如下所示:

open my $ftn_input, '|-', $fortran_program
    or die "Couldn't start $fortran_program: $!";
if ($yes) {
    print $ftn_input "Yes\n";
}
else {
    print $ftn_input "No\n";
}
close($ftn_input) # waits for fortran program to complete
    or die "Program failed; error $!, wait status $?\n";