Как я могу хлебать STDIN в Perl?
Я передаю вывод нескольких скриптов. Один из этих скриптов выводит всю HTML-страницу, которая обрабатывается моим Perl-скриптом. Я хочу быть в состоянии вытащить весь 58K текста в Perl-скрипт (который, конечно, будет содержать переводы строки).
Я думал, что это может сработать:
open(my $TTY, '<', '/dev/tty');
my $html_string= do { local( @ARGV, $/ ) = $TTY ; <> } ;
Но это не то, что мне нужно. Какие-либо предложения?