Array Derefenzieren (Allgemeines zu Perl)

[thread]19684[/thread]

Array Derefenzieren

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+7 replies
Gast Enana

2015-06-06 00:00
N'abend in die Runde, trotz dass es im Netz jede Menge Informationen zum referenzieren/dereferenzieren gibt, bin ich bei meinem Problem nicht fündig geworden und hoffe hier evtl. auf Hilfe, ich habe folgenden bestehenden Code, der Daten zuvor aus einer DB gelesen hat und weiterverarbeiten soll:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12

my @data; my $col=0; my %fields; foreach(@{$sth->{NAME_lc}}){ $fields{$_}=$col++; } while(my $ref=$sth->fetchrow_arrayref){ push @data,[@ref]; } my $var1=$data[0]->[$fields{column1}]; #->klappt, gibt Wert zurück my $var2=min @data->[$fields{column1}]; #->gibt Referenz zurück
Wie kann ich $var2 dereferenzieren? Wenn ich es mit @$data... versuche klappt es nicht und außer alle möglichen Selbstversuche fällt mir nichts besseres ein... Vielleicht kann mir ja hier jemand helfen!

modedit Editiert von GwenDragon: Quellcode in Perl-Tags, siehe Formatierungshilfe
Last edited: 2015-06-06 08:43:19 +0200 (CEST)
- +6 replies
- topeg
  
  2015-06-06 01:45
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Dein erster Fehler:
  
  Code (perl): (dl )
  
  push @data,[@ref];
  
  $ref ist nicht @ref!
  
  zweiter Fehler:
  
  Code (perl): (dl )
  
  @data->[$fields{column1}]
  
  Das sagt: Gib variable data als Array aus, indem auf die Array-referenz data zugegriffen wird und der index $fields{column1} benutzt wird.
  Wie du siehst ist das ein völliges durcheinander.
  @data ist eine Liste der aus der DB gelesenen "Zeilen" nicht die Spalten. @data ist ein "ArrayOfArrays" (AoA) Du Willst wahrscheinlich bei dem min den minimalen Wert der Spalte mit dem Namen "column1" haben.
  Dafür musst du alle Zeilen durch gehen und die passende Spalte Lesen.
  
  Was du wahrscheinlich willst:
  
  Code (perl): (dl )
  
  my $var2 = min map{ ( $_->[$fields{column1}] ) }@data
  
  oder:
  
  Code (perl): (dl )
  
  1 2 3
  
  my @tmp; push(@tmp,$_->[$fields{column1}]) for(@data); my $var2 = min @tmp;
  
  Daraus wird also:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  my @data; my $col=0; my %fields; foreach( @{$sth->{NAME_lc}} ){ $fields{$_} = $col++; } while(my $ref=$sth->fetchrow_arrayref){ push( @data, $ref ); } my $var1 = $data[0]->[$fields{column1}]; my $var2 = min map{ ( $_->[$fields{column1}] ) }@data;
  
  Der Code ist auch etwas umständlich.
  Du könntest es auch so machen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  my @data; my @data; while( my $ref = $sth->fetchrow_hashref() ){ push( @data, $ref ); } my $var1 = $data[0]->{column1}; my $var2 = min map{ $_->{column1} } @data;
  - +5 replies
  - Gast Enana
    
    2015-06-06 10:05
    
    Oh wow, super danke für die schnelle Antwort!!
    
    Grundsätzlich will ich ein AoA der Zeilendaten haben über das mit dem hash dann per Spaltenname auf den entsprechenden Index zugegriffen werden kann. Wie wahrscheinlich schon aufgefallen ist, bin ich Anfänger und muss noch einiges tun :)
    
    -> push @data,[@$ref] habe ich in der while Schleife übergeben weil $ref sich die ganze Zeit selbst überschreibt. Ich werde nochmal heute abend Deinen anderen Vorschlag testen :-)
    
    Aber tausend Dank für die wahnsinnig schnelle Hilfe!!!
    Last edited: 2015-06-06 10:27:19 +0200 (CEST)
    - +4 replies
    - topeg
      
      2015-06-06 10:52
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Guest Enana
      -> push @data,[@$ref] habe ich in der while Schleife übergeben weil $ref sich die ganze Zeit selbst überschreibt.
      
      Es wird nichts überschreiben den du benutzt my:
      
      Code (perl): (dl )
      
      1 2 3
      
      while(my $ref=$sth->fetchrow_arrayref) { ... }
      
      Das was in in den runden Klammern zu while steht gehört vom Geltungsbereich schon zum Inhalt der Schleife.
      ganz einfacher Test:
      
      Code (perl): (dl )
      
      my $x=100; while(my $x=0){} print $x
      
      Wenn du recht hast müsste in der Ausgabe "0" erscheinen. Es kommt aber "100".
      
      Was bedeutet das du dies schreiben kannst ohne die Inhalte zu überschreiben:
      
      Code (perl): (dl )
      
      1 2 3
      
      while(my $ref=$sth->fetchrow_arrayref){ push( @data, $ref ); }
      
      Denn es wird bei jedem Durchlauf die Variable neu erzeugt.
      
      Wenn du aber das my weg lässt hast du recht, da die Variable außerhalb der Schleife definiert ist:
      
      Code (perl): (dl )
      
      my $x=100; while($x=0){} print $x
      
      die Ausgabe ist hier nun "0"
      
      Noch eine Bemerkung am Rande. Mir scheint es das du kein use warnings; verwendest. Das hätte dir bei deinem Problem mit den Refenzen zumindest Aufgezeigt das du da was nicht 100% korrekt machst. Auch use strict; ist hilfreich. Man sollte immer diese beiden Pragmas benutzen.
      - Gast Enana
        
        2015-06-06 11:17
        
        Ah... ok, ich weiß zwar noch nicht ganz genau warum ich dann ein Array voller leerer Referenzen hatte (mit Ausnahme der letzten natürlich) aber ich mach mich heute abend nochmal ans Testen!
        
        use strict/warnings ist immer an, ohne dem würde ich keinen kleinen Zeh auf Perl-Boden setzen ;-)
        
        Besten Dank für die Hilfe!!!!
        Last edited: 2015-06-06 12:38:50 +0200 (CEST)
      - +2 replies
      - Raubtier
        
        2015-06-06 11:22
        
        User since
        2012-05-04
        1083 Artikel
        BenutzerIn
        
        Hallo Topeg,
        
        du hast zwar prinzipiell recht, dass wegen des "my" immer neue Referenzen erzeugt und gespeichert werden, jedoch:
        
        Quote
        Note that the same array reference is returned for each fetch, so don't store the reference and then use it after a later fetch. Also, the elements
        of the array are also reused for each row, so take care if you want to take a reference to an element. See also "bind_columns".
        
        Das macht es wieder zunichte.
        
        topeg
        
        2015-06-06 23:29
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Ah ok denke, bin sicher das ich schon mal darüber gestolpert bin. Man kann ja nicht immer an alles denken. :-)
        
        Also so:
        
        Code (perl): (dl )
        
        1 2 3
        
        while( my @ref = $sth->fetchrow_array() ){ push( @data, \@ref ); }

View all threads created 2015-06-06 00:00.