perl - PerlでSTDINを丸呑みするにはどうすればよいですか?

Question

いくつかのスクリプトの出力をパイプします。これらのスクリプトの 1 つは、私の perl スクリプトによって処理される HTML ページ全体を出力します。58K のテキスト全体を perl スクリプト (もちろん、改行が含まれます) に取り込めるようにしたいと考えています。

私はこれがうまくいくかもしれないと思った：

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

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

しかし、それは私が必要とすることをしていません。助言がありますか？

score 55 · Accepted Answer

55

my @lines = <STDIN>;

また

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

于 2012-05-25T23:07:24.390 に答える

score 8 · Accepted Answer

8

于 2014-05-22T14:09:20.537 に答える

score 3 · Accepted Answer

必要な単一の文字列にするには：

#!/usr/bin/perl -w
use strict;

my $html_string;
while(<>){
   $html_string .= $_;
}

print $html_string;

5 に答える 5