Я хочу написать Perl-скрипт, который запускает программы foo и bar, обрабатывает stdout из foo и передает их stdin из bar в потоковом режиме. Сценарий Perl должен действовать как эта команда bash:
$ foo | some-perl-code | bar
Мне удалось сделать первую часть с фрагментом ниже. Я запускаю программу foo и открываю канал для чтения stdout.
open( my $pipe_fh, "foo |" );
while ( my $row = <$pipe_fh> ) {
# do stuff
print $row;
}
Как я могу реализовать вторую часть? Как передать $row программе bar внутри моего Perl-скрипта?
