tom021
08-08-2003, 20:22
hi leute !
ich hab heute mit perl angefangen, deshalb bin ich noch ein ziemlicher noob. allerdings versteh ich einfach nicht warum das folgende script nicht funktioniert ??
#!/usr/bin/perl -w
use strict;
my $file = $ARGV[0];
open(FH, ">> $file")
or
die "\nDiese datei ex. nicht!!";
print "Geben Sie den Text ein den sie in die datei schreiben moechten:";
chomp(my $text = <>);
print FH $text;
close(FH)
open(FH2,"< $file")
or
die "pech";
print "\n\n\n\nAusgabe:";
while( my $zeile = <FH2>) {
print $zeile ."\n";
}
close(FH2);
ich er halte ständig folgenden fehler :
tom@debian:~$ perl test.pl test
syntax error at test.pl line 17, near ")
open"
Execution of test.pl aborted due to compilation errors.
wäre nett wenn mir jemand helfen könnte, ich weiss nämlich wirklich nicht mehr weiter.
mfg
tom
ich hab heute mit perl angefangen, deshalb bin ich noch ein ziemlicher noob. allerdings versteh ich einfach nicht warum das folgende script nicht funktioniert ??
#!/usr/bin/perl -w
use strict;
my $file = $ARGV[0];
open(FH, ">> $file")
or
die "\nDiese datei ex. nicht!!";
print "Geben Sie den Text ein den sie in die datei schreiben moechten:";
chomp(my $text = <>);
print FH $text;
close(FH)
open(FH2,"< $file")
or
die "pech";
print "\n\n\n\nAusgabe:";
while( my $zeile = <FH2>) {
print $zeile ."\n";
}
close(FH2);
ich er halte ständig folgenden fehler :
tom@debian:~$ perl test.pl test
syntax error at test.pl line 17, near ")
open"
Execution of test.pl aborted due to compilation errors.
wäre nett wenn mir jemand helfen könnte, ich weiss nämlich wirklich nicht mehr weiter.
mfg
tom