Wie kann ich STDIN in Perl schlürfen?

Ich leite die Ausgabe mehrerer Skripte weiter. Eines dieser Skripte gibt eine gesamte HTML-Seite aus, die von meinem Perl-Skript verarbeitet wird. Ich möchte in der Lage sein, den gesamten Text von 58 KB in das Perl-Skript zu ziehen (das natürlich Zeilenumbrüche enthält).

Ich dachte, das könnte funktionieren:

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

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

Aber es tut einfach nicht das, was ich brauche. Irgendwelche Vorschläge?

Antworten auf die Frage(4)

Ihre Antwort auf die Frage