Hash enthält einen Wert zuviel (solved) (Allgemeines zu Perl)

[thread]19735[/thread]

Hash enthält einen Wert zuviel [solved]

Tags: perl5 hash Similar Threads

Readers: 14

Articles: hide open all | hide show old branches

+3 replies
panni

2015-07-22 15:24
User since
2012-02-15
23 articles
BenutzerIn
Hallo!

Ich habe eine weitere Frage zu Hashs.

Ich lese eine Datenbanktabelle aus und speichere die Werte in einem Array. Der Sql-Befehl liefert genau sechs Werte zurück.
Code (perl): (dl )

1 2 3 4 5 6 7 8

... my $key = "allItems"; while (my($itemNum, $itemTitle) = $dbh->fetchrow_array()) { push(@aItems, { 'itemNum' => $itemNum, 'itemName' => $itemTitle }); }
Danach füge ich dieses Array zu einem Hasheintrag zu
Code (perl): (dl )

$item{$key}{'itemList'} = \@aItems;
Der Effekt den ich jetzt habe, ist dass ich in dem Array @aItems sechs Werte habe, in $item{$key}{'itemList'} aber sieben Werte, einer davon ist "undef".

Ich habe mir mal rudimentär ausgeben lassen, was in @aItems und in $item{$key}{'itemList'} gespeichert ist.
Code (perl): (dl )

1 2 3

$item{$key}{'debugArray'} = join ("|", @auctionItems); while( my @array=each($item{$key}{'itemList'} )) { $item{$key}{'debugHash'} = $item{$key}{'debugHash'} ."|$array[0] -> $array[1]"; $array[0]=undef;$array[1]=undef } }
und erhalte dann folgendes Ergebnis

Quote
'debugHash' => '|0 -> |1 -> HASH(0x24981a0)|2 -> HASH(0x2497be8)|3 -> HASH(0x249def0)|4 -> HASH(0x1d23188)|5 -> HASH(0x24982f0)|6 -> HASH(0x24983c8)',
'debugArray' => '|HASH(0x24981a0)|HASH(0x2497be8)|HASH(0x249def0)|HASH(0x1d23188)|HASH(0x24982f0)|HASH(0x24983c8)'

Ich verstehe nicht, warum in "$item{$key}{'itemList'}" auf einmal ein Wert mehr enthalten ist bzw. wo der herkommt bzw. wo ich einen Fehler mache.

Ganz verrückt wird es (für mich), dass ich das Zuweisen einer Liste von Items zu einem Hashwert noch an anderen Stellen im Projekt auf die gleiche Weise mache, ich dann aber dort nicht diesen zusätzlichen, undefinierten, Wert mit in der Liste habe.

Weiß evtl. jemand Rat?

Danke!
- +2 replies
- Linuxer
  
  2015-07-22 17:18
  User since
  2006-01-27
  3890 articles
  HausmeisterIn
  Du arbeitest einmal mit @aitems (1. und 2. Code) und machst die Kontrolle mit @auctionItems (3. Code).
  Dann sind in den beiden Arrays möglicherweise verschiedene Inhalte.
  
  Aber andererseits:
  
  Mit
  
  Code (perl): (dl )
  
  $item{$key}{'debugArray'} = join ("|", @auctionItems);
  
  bekommst Du ja diese Ausgabe:
  
  Code: (dl )
  
  'debugArray' => '|HASH(0x24981a0)|HASH(0x2497be8)|HASH(0x249def0)|HASH(0x1d23188)|HASH(0x24982f0)|HASH(0x24983c8)'
  
  Daran ist am Anfang des Strings zu sehen, dass im Array entweder ein Leerstring '' oder undef steckt.
  Ansonsten ist es nicht erklärbar, dass beim join('|', @array); gleich zu Beginn das Trennzeichen '|' steht.
  
  Code (perl): (dl )
  
  1 2 3
  
  join( '|', 1,2,3 ); # produces "1|2|3" join( '|', "",4,5 ); # produces "|4|5" join( '|', undef,6,7 ); # produces "|6|7"; giving warning if enabled
  
  Ich hoffe, Du benutzt use strict; und use warnings;.
  
  Wie werden denn diese Arrays (@aItems, @auctionItems) in diesem Code deklariert und initialisiert?
  
  Oder machst Du vielleicht irgendwo @aItems = (undef);, um das Array zu leeren?
  
  Dann sollte es klar sein; denn Du weist dem Array hier eine Liste mit einem Element zu. Und dieses Element ist eben undef, dass dann natürlich im Array steckt...
  
  Wenn Du ein Array leeren willst, verwende @array = (); oder auch undef @array;.
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - panni
    
    2015-07-22 17:24
    User since
    2012-02-15
    23 articles
    BenutzerIn
    
    Das schau ich mir mal an. Vielen Dank für den Tipp!
    
    Das "undef" war's! Hatte ein
    
    Code (perl): (dl )
    
    @aItems = undef;
    
    drin.
    
    Riesendank, das hätte ich nicht gefunden :)
    Last edited: 2015-07-22 17:29:22 +0200 (CEST)

View all threads created 2015-07-22 15:24.