Verschwinden des Arrays (Allgemeines zu Perl)

[thread]20067[/thread]

Verschwinden des Arrays

Tags: perl5 Array verschwunden Dateihandels Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+4 replies
Gast Alexander

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:
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)
- hlubenow
  
  2016-05-04 15:48
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  Interessant. Das hängt irgendwie mit dem "$_" zusammen.
  Hier ist @dateien weg (Datei "a.csv" existiert im Verzeichnis):
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  #!/usr/bin/perl use warnings; use strict; my @dateien = ("a.csv"); my $fh; print "Also hier bin ich @dateien\n"; #hier ist das Array noch da foreach (@dateien) { open ($fh, "<", "$_"); while (<$fh>) {} close($fh); } print "Ich @dateien bin aufeinmal weg \n"; #hier ist es verschwunden
  
  Hier bleibt es da:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  #!/usr/bin/perl use warnings; use strict; my @dateien = ("a.csv"); my $fh; print "Also hier bin ich @dateien\n"; #hier ist das Array noch da foreach my $i (@dateien) { open ($fh, "<", "$i"); while (<$fh>) {} close($fh); } print "Ich @dateien bin aufeinmal weg \n"; #hier ist es verschwunden
- jan
  
  2016-05-04 16:04
  User since
  2003-08-04
  2536 Artikel
  ModeratorIn
  Meine Vermutung ist: foreach setzt $_ auf eine Referenz auf das jeweilige Array-Element.
  Anschließend setzt die while-Schleife $_ jeweils auf die Zeile, die gelesen wird. Wenn es keine weiteren Zeilen mehr gibt, gibt <OEFFNEN> undef zurück, und darauf wird dann auch $_ gesetzt, was sich wiederum auf das Array-Element auswirkt.
  
  Wenn Du genau hinschaust, siehst Du auch, dass dein Array nicht leer ist, sondern anstelle der Dateinamen mehrere Leerzeichen kommen: mehrere undefinierte Elemente, getrennt durch Leerzeichen.
  
  Lösen kannst Du es auf verschiedene Arten:
  die while-Schleife
  
  Code (perl): (dl )
  
  1 2 3
  
  while (my $tmp = <OEFFNEN>) { push @zeilen, $tmp; }
  
  in diese Art zu ändern, sollte helfen.
  
  Grundsätzlich finde ich es immer hilfreich, nicht $_ zu nutzen. Einerseits wegen manchen Merkwürdigkeiten wie Du sie gerade hast, aber auch weil ich explizite Dinge im Code mag, die jedem sofort sagen, was hier passiert und was in welcher Variablen gerade steckt. Ergo würde ich das auch mit
  
  Code (perl): (dl )
  
  for my $datei (@dateien){
  
  schreiben.
  Zum ausgeben vom Variableninhalt empfehle ich dir Data::Dump's pp anstatt sie einfach in einen string zu packen.
  Oben:
  
  Code (perl): (dl )
  
  use Data::Dump qw(pp);
  
  und unten dann
  
  Code (perl): (dl )
  
  pp(@dateien);
  
  Das gibt bei mir im "Problemfall"
  
  Code: (dl )
  
  (undef, undef)
  
  und mit dem obigen Fix dann
  
  Code: (dl )
  
  ("jan.csv", "jan2.csv")
  
  .
- Raubtier
  
  2016-05-04 17:47
  User since
  2012-05-04
  1076 Artikel
  BenutzerIn
  Mehrere Punkte:
  Allgemein:
  * 3-Argumente-Form von open nehmen (hatten wir neulich gerade ausführlich hier / sicherer, besser, close wird verzichtbar)
  * use strict und use warnings einsetzen!
  
  Und zu deinem Problem: Wie Jan vermutet hat: Perl liebt Referenzen!
  
  D.h. folgendes gibt dir 3x "irgendwas" aus:
  
  Code (perl): (dl )
  
  1 2 3
  
  my @arr1 = ( 1, 2, 3); for (@arr1) { $_ = "irgendwas"; } print "@arr1\n";
  
  Also: nicht 2x dieselbe Variable (hier $_) für unterschiedliche Dinge nutzen! (Es gibt allerdings noch das Keyword local, das das ganze beeinflusst und in foreach-Schleifen ist die Loop-Variable implizit local -> siehe perlsyn)
  
  Also: es kostet nix, die äußere Variable $filename zu nennen und die innere $line. Oder auf die innere Loop ganz verzeichten: push @zeilen, <OEFFNEN>;
  
  Insgesamt (ungetestet):
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  use strict; use warnings; my @zeilen; my @dateien = glob "*.csv"; for my $filename (@dateien) { open my $FH, "<", $filename or die "\n\nProblem beim oeffenen von $filename . $! \n"; push @zeilen, <$FH>; }

View all threads created 2016-05-04 14:45.