Refrenzen und fetchrow_arrayref (Allgemeines zu Perl)

[thread]19337[/thread]

Refrenzen und fetchrow_arrayref

Tags: perl5 Similar Threads

Readers: 12

Articles: hide open all | hide show old branches

+6 replies
guest Wastl

2014-10-16 16:19
Würde gerne mittels fetchrow_arrayref die Datensätze als Referenzen in ein Array schreiben.
Das entsprechende Code Fragment:
Code: (dl )

1 2 3 4 5 6 7

my @res; my $row; while ($row = $query->fetchrow_arrayref){ print "$row->[0] : $row->[1] : $row->[2]"; push @res, $row; }
Die Ausgabe:
Code: (dl )

1 2

1 : LANGUAGE : de_DE 2 : LANGUAGE : en_US
Sieht eigentlich ganz gut aus. Lasse ich mir allerdings den Listen Inhalt anzeigen, kommt dieses:
Code: (dl )

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

my @res; my $row; while ($row = $query->fetchrow_arrayref){ print "$row->[0] : $row->[1] : $row->[2]"; push @res, $row; } print "---------------------------------------"; foreach $row (@res) { print "$row->[0] : $row->[1] : $row->[2]"; }
Code: (dl )

1 2 3 4 5

1 : LANGUAGE : de_DE 2 : LANGUAGE : en_US --------------------------------------- 2 : LANGUAGE : en_US : ARRAY(0x1417df0) 2 : LANGUAGE : en_US : ARRAY(0x1417df0)
Auch wenn in der While Schleife mit jedem Durchlauf der nächste Datensatz eingelesen und auch korrekt ausgegeben wird, scheint jedesmal dieselbe Referenz übergeben zu werden.

Wo liegt der Fehler?
Last edited: 2014-10-16 16:42:04 +0200 (CEST)
- Raubtier
  
  2014-10-16 16:50
  
  User since
  2012-05-04
  1083 articles
  BenutzerIn
  
  Lies DBI, Abschnitt zu fetchrow_arrayref:
  
  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 musst du die Kopie selbst erzeugen, z.B. sollte gehen: push @res, [@$row];
  
  modedit Editiert von GwenDragon: Link geändert, da nicht online in Perldoc
  Last edited: 2014-10-16 17:15:37 +0200 (CEST)
- +4 replies
- GwenDragon
  
  2014-10-16 16:58
  
  User since
  2005-01-17
  14892 articles
  Admin1
  
  Erklärung:
  
  https://metacpan.org/pod/DBI#fetchrow_arrayref
  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".
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - guest Wastl
    
    2014-10-16 21:57
    
    Danke Euch beiden für den Hinweis.
    
    Den Tip von Raubtier:
    
    Quote
    push @res, [@$row];
    
    werde ich morgen ausprobieren, melde mich dann noch mal.
    Last edited: 2014-10-17 00:07:58 +0200 (CEST)
  - +2 replies
  - guest Wastl
    
    2014-10-17 10:23
    
    Habe den Tip von Raubtier mit der anonymen Referenz getestet, funktioniert super. Damit wäre für mich das Problem gelöst.
    
    BTW,
    wie findet ihr eigentlich meinen Ansatz. Ist der OK oder könnte man da etwas besser machen?
    Last edited: 2014-10-17 10:30:13 +0200 (CEST)
    - rosti
      
      2014-10-17 10:46
      
      User since
      2011-03-19
      3754 articles
      BenutzerIn
      
      Quote
      wie findet ihr eigentlich meinen Ansatz. Ist der OK oder könnte man da etwas besser machen?
      
      Guck Dir mal die Slice-Option an, perldoc DBI und dann mal danach suchen.
      https://www.rolfrost.de/
      
      Forum zu Fragen unserer Zeit

View all threads created 2014-10-16 16:19.