Как я могу хлебать STDIN в Perl?

Я передаю вывод нескольких скриптов. Один из этих скриптов выводит всю HTML-страницу, которая обрабатывается моим Perl-скриптом. Я хочу быть в состоянии вытащить весь 58K текста в Perl-скрипт (который, конечно, будет содержать переводы строки).

Я думал, что это может сработать:

open(my $TTY, '<', '/dev/tty');

my $html_string= do { local( @ARGV, $/ ) = $TTY ; <> } ;

Но это не то, что мне нужно. Какие-либо предложения?

Ответы на вопрос(4)

Ваш ответ на вопрос