Opened by Alexander at 2016-05-04 14:45
Hallo erstmal,
ich will alle .csv oder .txt Dateien in einem Verzeichnis einlesen und dann jede Zeile in ein Array abspeichern um weiter damit zu arbeiten. Das funktioniert schonmal ganz gut. Dabei verschwindet aber das Array @dateien. Ich verstehe nicht warum es verschwindet, die Foreach und das While(<OFFNEN>) arbeiten vielleicht nicht gut miteinander. Ich wäre über eine Erklärung oder einen besseren Weg dankbar. Ein besserer Weg mit Erklärung wäre natürlich optimal.
Hier ist mein Code:
Last edited: 2016-05-04 15:01:23 +0200 (CEST)
ich will alle .csv oder .txt Dateien in einem Verzeichnis einlesen und dann jede Zeile in ein Array abspeichern um weiter damit zu arbeiten. Das funktioniert schonmal ganz gut. Dabei verschwindet aber das Array @dateien. Ich verstehe nicht warum es verschwindet, die Foreach und das While(<OFFNEN>) arbeiten vielleicht nicht gut miteinander. Ich wäre über eine Erklärung oder einen besseren Weg dankbar. Ein besserer Weg mit Erklärung wäre natürlich optimal.
Hier ist mein Code:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
my @zeilen;
my @dateien = glob "*.csv"; #oder .txt
print "Also hier bin ich @dateien\n"; #hier ist das Array noch da
foreach (@dateien){
open (OEFFNEN, "$_")
or die "\n\nProblem beim oeffenen von $_ . $! \n";
while (<OEFFNEN>) {
my $tmp = $_;
push @zeilen, $tmp;
}
close OEFFNEN;
}
print "Ich @dateien bin aufeinmal weg \n"; #hier ist es verschwunden
Last edited: 2016-05-04 15:01:23 +0200 (CEST)