Thread Verständnisproblem Streams Umleiten (5 answers)
Opened by Gast at 2006-03-26 17:21

Gast Gast
 2006-03-26 17:21
#64086 #64086
Hallo!

Ich habe da ein kleines Verständnis-Problem was das Umleiten von Streams angeht.

Das este Problem ist, warum funktioniert das folgende Beispiel wunderbar (Eingabe wird in die Datei geschrieben)

Code: (dl )
1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;

open(CLIENT, ">client.txt");
print CLIENT "TEST\n";
my $line = <STDIN>;
print CLIENT "$line";
close(CLIENT);


Aber die folgende nicht?

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl
use strict;
use warnings;

open(CLIENT, ">client.txt");
print CLIENT "TEST\n";
while (my $line = <STDIN>) {
        print "$line";
        print CLIENT "$line";
}
close(CLIENT);


Hier bleibt die Datei komplett leer.

View full thread Verständnisproblem Streams Umleiten