Community  »  Perl: Allgemeines Forum

Anfänger Perlscript error	Seitenanfang
Hey Leute, hoffe hier kann mir jemand helfen. Ich hab nen kleines Script geschireben zum meine txt Dateien zu sortieren. Nun bekomm ich aber nur eine Errormessage, hab es mit 5.10 und 5.8 probiert doch die message bleibt die selbe. #!/usr/bin/perl -w print "File to inverse: "; chomp($file=<STDIN>); open(FI,$file); while($i=<FI>) { if($i=~m/(.*?):(.*?):(.*?)/){ open(FI2,"Extracted.txt"); print FI2 $3.":".$2.":".$1; close(FI2); } } close(FI); C:\Perl\bin>perl script.pl File to inverse: cd c:\perl\bin\sds.txt readline() on closed filehandle FI at script.pl line 5. Datum: 24.01.2008-20:46
re: Anfänger Perlscript error	Seitenanfang
Du solltest Fehlerbehandlung einführen. Mach mal aus open(FI,$file); das hier: open(FI,'<',$file) or die "Cannot open $file"; Datum: 25.01.2008-08:13