Opened by Gast at 2006-03-26 17:21
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
[quote=Guest,26.03.2006, 15:21]
Hier bleibt die Datei komplett leer.[/quote]
Der Code funktioniert bei mir problemlos (per copy & paste). Die Datei wird wie zu erwarten gefüllt.
Unabhängig davon hat GwenDragon natürlich recht mit ihren Anmerkungen bzgl. Fehlerabfragen.
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.[/quote]
Der Code funktioniert bei mir problemlos (per copy & paste). Die Datei wird wie zu erwarten gefüllt.
Unabhängig davon hat GwenDragon natürlich recht mit ihren Anmerkungen bzgl. Fehlerabfragen.