Opened by Trommelwirbel at 2011-11-29 15:00
User since
2011-11-10
28 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2011-11-10
28 Artikel
BenutzerIn
Hi Leute,
einfaches Problem, verzweifle aber gerade!
Hat jemand eine Idee warum das nicht Funkst?
Das soll einfach jede Text Datei die in dem Ordner ist untereinander schreiben.
Es ist bringt mir den Fehler: "readline() on a closed Filehandle"
Last edited: 2011-11-29 15:03:53 +0100 (CET)
einfaches Problem, verzweifle aber gerade!
Hat jemand eine Idee warum das nicht Funkst?
Das soll einfach jede Text Datei die in dem Ordner ist untereinander schreiben.
Es ist bringt mir den Fehler: "readline() on a closed Filehandle"
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
use strict;
use warnings;
my (@files)=();
my $m;
my $name;
opendir DIR,'C:\Desktop\Plots\Abflusswerte';
@files = readdir(DIR);
closedir(DIR);
open(Out,">>hq_regio_neu.txt");
foreach $m (@files){
open(IN,$m);
while(<IN>){
print Out $_ ;
}
}
Last edited: 2011-11-29 15:03:53 +0100 (CET)