Подача ввода в программу с Perl?

Question

Я не уверен, как задать этот вопрос.Я пытаюсь написать программу на Perl, которая вызывает дочернюю программу (программу на Фортране), поэтому дочерняя программа обращается к стандартному вводу данных, чтобы получить да / нет.

Есть ли способ, которым Perl может предоставить эту опцию, не позволяя ребенку перейти на STDIN?

Из-за моего слабого словаря в области программирования я не смог получить ответ от Google.

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";