我如何在Perl中啜饮STDIN？

Question

我管道输出了几个脚本.其中一个脚本输出整个HTML页面,由我的perl脚本处理.我希望能够将整个58K的文本拉入perl脚本(当然,它将包含换行符).

我认为这可行:

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

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

但它只是没有做我需要的.有什么建议？

Answer 1

my @lines = <STDIN>;

要么

my $str = do { local $/; <STDIN> };

Answer 2

我不能不说这个机会说不管我多么爱 IO::All不说:

♥♥__"我真的很喜欢IO::All......很多"__♥♥

POD概要的变化:

use IO::All;
my $contents < io('-') ;
print "\n printing your IO: \n $contents \n with IO::All goodness ..." ;

警告: IO::All可能会开始用自己阴险的优点替换你在perl中了解IO的所有其他信息.