<STDIN> abfangen

[Christian Kruse]

Hallo,

das klappt auch soweit...bis zum ende der ersten, übergebenen zeile, mehr
steht nämlich in test.txt nicht drin.

Kein Wunder. Du liest ja mit

my $data = <STDIN>;

Auch nur eine Zeile ein.
Viel besser waere wohl

while(<STDIN>) {
  print OUTFILE $_;
}

oder

{
 local $/;
 print OUTFILE <STDIN>;
}

Mehr zu $/ gibts in `perldoc perlvar'

Gruesse,
 CK