Array of Arrays in Schleife erstellen (Allgemeines zu Perl)

[thread]13824[/thread]

Array of Arrays in Schleife erstellen

Leser: 27

Articles: hide open all | hide show old branches

+4 replies
trojax

2009-08-05 15:32
User since
2009-05-13
21 Artikel
BenutzerIn
Hallo zusammen,
ich komm leider nicht drauf warum mein Skript nicht funktionieren mag.

Ich lese eine Datei Zeilenweise aus und schiebe die Werte einer Zeile gesplittet in ein Array.
Eine Referenz auf dieses Array hänge ich dann an ein anderes Array, so dass ich ein array of arrays bekomme.
Als Beispiel:
Code (perl): (dl )

1 2 3 4 5

while ( my $line = <$fh> ) { chomp $line; my @vorhandene_werte = split(/\s+/,$line); push (@aoa , \@vorhandene_werte); }
Nach der Schleife ist das Array @aoa auch mit sovielen Elementen wie Zeilen gefüllt.
Allerdings enthalten alle diese Zeilen den gleichen Inhalt, und zwar den der letzten Zeile die ich verarbeitet habe.
Da ich, wenn ich mir jedes @vorhandene_werte Array einzeln ausgeben lasse die jeweiligen, richtigen Werte der Zeilen erhalte habe ich die vermutung, dass ich zwar jedes Mal das Array anhänge, der Inhalt dessen sich jedoch bis zum Ende der Datei ja noch verändert, und diese Änderungen dann alle Elemente des @aoa betreffen.
Gibts dafür eine Lösung?
- +3 replies
- sid burn
  
  2009-08-05 15:49
  User since
  2006-03-29
  1520 Artikel
  BenutzerIn
  Quote
  Nach der Schleife ist das Array @aoa auch mit sovielen Elementen wie Zeilen gefüllt.
  Allerdings enthalten alle diese Zeilen den gleichen Inhalt, und zwar den der letzten Zeile die ich verarbeitet habe.
  Da ich, wenn ich mir jedes @vorhandene_werte Array einzeln ausgeben lasse die jeweiligen, richtigen Werte der Zeilen erhalte habe ich die vermutung, dass ich zwar jedes Mal das Array anhänge, der Inhalt dessen sich jedoch bis zum Ende der Datei ja noch verändert, und diese Änderungen dann alle Elemente des @aoa betreffen.
  
  Kannst du ein komplettes lauffähiges Schnipsel Posten mit beispieldaten wo das aufrtritt? Nach deinem simplen code oben sollte soetwas nicht passieren. Es scheint mir eher das du in deinem Code wo das passiert eher soetwas hast
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  my @vorhandene_werte; while ( my $line = <$fh> ) { chomp $line; @vorhandene_werte = split(/\s+/,$line); push (@aoa , \@vorhandene_werte); }
  
  Damit würdest du dann dem Array immer wieder neue Werte zuordnen und für jede zeile eine arrayreferenz hinzufügen. Und zum schluß haben alle Arrays den gleichen Inhalt weil sie immer auf das gleiche array zeigen.
  
  Daher poste bitte ein vollständig lauffähiges Beispiel wo das auftritt. Mit dem Code den du gepostet hast sollte dies nicht passieren.
  
  Oder hast du etwa "use strict;" nicht an, und nutzt kein "my" oder so ein kram? Das würde ebenfalls zu solch einem ergebniss führen.
  Last edited: 2009-08-05 15:51:26 +0200 (CEST)
  Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
  - +2 replies
  - Taulmarill
    
    2009-08-05 16:16
    User since
    2004-02-19
    1750 Artikel
    BenutzerIn
    
    Alternativ könnte man doch auch direkt anonyme Arrays bauen, dann hat man das von sid vermutete Problem von vorne herein ausgeschlossen. Etwas so (ungetestet):
    
    Code (perl): (dl )
    
    1 2 3 4
    
    while ( my $line = <$fh> ) { chomp $line; push @aoa, [ split /\s+/, $line ]; }
    
    $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
    - trojax
      
      2009-08-05 16:56
      
      User since
      2009-05-13
      21 Artikel
      BenutzerIn
      
      Oh nein,
      da hätt ich echt selber drauf kommen können...
      Ich Perl - loser :-(
      Naja, wie auch immer, ich musste tatsächlich mein array außerhalb der Schleife per my @vorhandene_werte deklarieren, das zu erklären würde leider sehr serh lange dauern. Ich ich fülle das array in zwei Schleifendurchläufen auf, also sprich: die Werte von zwei aufeinanderfolgenden Zeilen müssen zusammen in ein einziges @vorhandene_werte gepusht werden. Würde ich die Deklaration innerhalb der Schleife durchführen, hätte ich beim zweiten Durchlauf die ersten Werte nicht mehr.
      Jetzt schreibe ich innerhalb der Schleife in jedem zweiten Durchlauf den Inhalt von @vorhandene_werte per
      
      Code (perl): (dl )
      
      my @temporaeres_array = @vorhandene_werte;
      
      In ein in der Schleife definiertes Array und jetzt gehts :-)
      Danke euch beiden!

View all threads created 2009-08-05 15:32.