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?