Gehirnverknotung dank Hashes (Allgemeines zu Perl)

[thread]17737[/thread]

Gehirnverknotung dank Hashes

Tags: perl5 hash Similar Threads

Readers: 26

Articles: hide open all | hide show old branches

+13 replies
guest Basti

2012-09-07 16:13
Hallo!

Ich rufe in meinem Programm eine Sub auf my %allCustomers = &getAllCustomers(); um in dieser einen Hash mit Hashs zu füllen ->
$allCustomers{$count} = \%customer;.

Am Ende der Sub gebe ich den Hash an das Hauptprogramm zurück -> return %allCustomers;

Danach möchte ich jeden einzelnen Hash aus %allCustomers in einer Schleife durchgehen und verarbeiten.

Das habe ich so probiert:
Code: (dl )

1 2 3

foreach my $key (%allCustomers) { my %customer = $allCustomers{$key}; ...
Ich könnte zwar mit $allCustomers{$key} weiterarbeiten, möchte aber lieber mit der Variable %customer weiterarbeiten. Das sollte doch auch gehen, ich komm aber nicht drauf, warum nicht.

Habt ihr eine Idee?

Danke!
Last edited: 2012-09-07 16:28:34 +0200 (CEST)
- +12 replies
- pq
  
  2012-09-07 16:32
  User since
  2003-08-04
  12208 articles
  Admin1
  wenn du verschachtelte hashes hast, hast du da referenzen drin. entweder du arbeitest mit der referenz weiter, so:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  foreach my $key (keys %allCustomers) { my $customer = $allCustomers{$key}; say $customer->{foo}; ...
  
  oder du dereferenzierst:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  foreach my $key (keys %allCustomers) { my %customer = %{ $allCustomers{$key} }; say $customer{foo}; ...
  
  siehe auch perlreftut, perldsc
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +11 replies
  - guest Basti
    
    2012-09-07 16:36
    
    Das probier ich aus. Vielen Dank!
    Last edited: 2012-09-07 16:37:58 +0200 (CEST)
    - +10 replies
    - guest Basti
      
      2012-09-17 11:39
      
      Hallo!
      
      Ich habe noch irgendwo einen Fehler.
      
      Noch mal kurz, was ich tue.
      Ich lese alle Kunden aus einer Datenbanktabelle ein.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13
      
      sub einlesen { $count = 0; $db->Sql("select * from customers"); while ($db->FetchRow()) { $customer{'customerId'} = $db->Data("kundennummer"); $customer{'street'} = $db->Data("strasse"); $customer{'streetNumber'} = $db->Data("hausnummer"); $customer{'city'} = $db->Data("ort $allCustomers{$count} = \%ddvCustomer; $count++; } return %allCustomers; }
      
      Ich denke, dass alle Kunden in den Hash %allCustomers eingelesen, da mir use Data::Dumper; Dumper(%allCustomers); sowas ausgibt:
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14
      
      $VAR1 = '127'; $VAR2 = { 'customerId' => 1234, 'street' => 'Hauptstr.', 'streetNumber' => '33', 'city' => 'Musterort' }; $VAR3 = '1049'; $VAR4 = $VAR2; $VAR5 = '71'; $VAR6 = $VAR2; $VAR7 = '1648'; $VAR8 = $VAR2; ...
      
      Gehe ich jetzt aber mit der Dereferenzierung
      
      Code (perl): (dl )
      
      1 2 3 4
      
      foreach my $key (%allCustomers) { my %customer = %{ $allCustomers{$key} }; print $customer{'customerId'} . " "; }
      
      durch den Hash, bekomme ich 1234 Can't use an undefined value as a HASH reference at [die Zeile, wo das print steht]
      
      Die Kundennummer ist die Nummer des letzten Kunden in der Liste, die aus der Datenbankabfrage resultiert.
      
      Jetzt weiß ich nicht, wo mein Fehler liegt.
      Last edited: 2012-09-17 11:47:55 +0200 (CEST)
      - +2 replies
      - Linuxer
        
        2012-09-17 11:49
        
        User since
        2006-01-27
        3890 articles
        HausmeisterIn
        
        Code: (dl )
        
        foreach my $key (%allCustomers) {
        
        Das ist so nicht ganz korrekt. Das iteriert über KEYs und VALUEs!
        
        Versuch mal
        
        Code: (dl )
        
        foreach my $key (keys %allCustomers) {
        
        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!
        
        guest Basti
        
        2012-09-17 11:59
        
        Ok, super. Das war der erste Fehler von mir, keine Ahnung, warum ich das nicht korrekt von pq übernommen hatte.
        
        Jetzt bekomme ich keine Fehlermeldung mehr :), aber es wird mir, die Anzahl aller Kunden entsprechend, immer die gleiche Kundennummer angezeigt :(
      - +7 replies
      - pq
        
        2012-09-17 11:59
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        das mit keys hat linuxer ja schon geschrieben. ich hatte in meinem beispiel auch keys benutzt. das war nicht nur zur deko da =)
        
        aber was anderes: so wie deine subroutine aussieht, benutzt du ne menge globaler variablen. das bringt dich in teufels küche und ich empfehle, das besser jetzt zu korrigieren als später. alles global zu halten ist ne art billig-programmierung, die einem mittelfristig mehr zeit kostet als spart.
        mein auftrag war mal, eine applikation zu refactorn, die noch in zeiten geschrieben war, als es noch keine referenzen gab (oder die programmierer diese nicht kannten). hunderte globale variablen. es war die hölle.
        
        lies bitte mal use strict
        
        deklariere variablen erst dort, wo sie gebraucht werden, im kleinstmöglichen gültigkeitsbereich. um dann auf manche variablen zuzugreifen, musst du sie der sub als parameter übergeben. dadurch hast du aber auch einen besseren überblick, welche variable wo gebraucht wird.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +6 replies
        
        guest Basti
        
        2012-09-17 12:23
        
        Ok, das habe mit den Variablen habe ich angepaßt.
        
        Ich habe auch noch mal nach $allCustomers{$count} = \%customer; diese Zeile hier eingefügt:
        print $count . "-" . $allCustomers{$count}{'customerId'}."\n";
        Da wird mir jeweils korrekt die Kundennummer zurückggeben.
        ...
        1724-4567
        1725-1234
        
        Wenn das Einlesen der Datensätze beendet ist, habe ich jetzt mal testweise, noch vor Rückgabe ans Hauptprogramm, mir die Kundennummer in %allCustomers ausgeben lassen:
        
        Code (perl): (dl )
        
        1 2
        
        foreach my $key (keys %allCustomers) { print $key . "-" . $allCustomers{$key}{'customerId'} . "\n";}
        
        Da sieht die Liste so aus:
        127-1234
        1049-1234
        71-1234
        ...
        
        Es ist immer die Kundennummer, die als letztes aus der Datenbank kam. Bedeutet das, dass das hier falsch ist $allDdvCustomers{$count} = \%customer;
        
        Aber das würde ja bedeuten, dass immer alle Sätze in %allCustomers überschrieben werden?!
        
        PS: in meinem letzten Eintrag steht da von mir fehlerhaft "\%ddvCustomer". Das ist meinem Test im zweiten Editorfenster geschuldet. Es heißt im echten Programm immer "\%customer"
        
        Danke für eure Mühen.
        Last edited: 2012-09-17 12:28:42 +0200 (CEST)
        
        +2 replies
        
        guest Basti
        
        2012-09-17 12:35
        
        So, es sieht so aus, als hätte ich das jetzt lösen können.
        
        In der Schleife, wo ich die Datensätze aus der Tabelle verarbeite und somit %customer befülle, deklariere ich bei jedem neuen Datensatz die Variable %customer neu my %customer = ();.
        
        Jetzt sieht das eigentlich so aus, wie ich es brauche :)
        
        Ich hoffe, dem ist so und danke euch allen für die Hilfe und Anregungen.
        
        Basti
        Last edited: 2012-09-17 12:36:49 +0200 (CEST)
        
        Linuxer
        
        2012-09-17 12:38
        
        User since
        2006-01-27
        3890 articles
        HausmeisterIn
        
        Jetzt warst Du etwas schneller als ich mit meiner Antwort ;)
        
        Das ist ein gutes Beispiel für das, was pq Dir schon gesagt hat: Vermeide globale Variablen!
        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!
        
        +2 replies
        
        Linuxer
        
        2012-09-17 12:36
        
        User since
        2006-01-27
        3890 articles
        HausmeisterIn
        
        Hi,
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
        sub einlesen { $count = 0; $db->Sql("select * from customers"); while ($db->FetchRow()) { $customer{'customerId'} = $db->Data("kundennummer"); $customer{'street'} = $db->Data("strasse"); $customer{'streetNumber'} = $db->Data("hausnummer"); $customer{'city'} = $db->Data("ort $allCustomers{$count} = \%Customer; ## Linuxer "ddv" removed from \%ddvCustomer $count++; } return %allCustomers; }
        
        Wo wird der Hash %customer deklariert.
        Wenn das ein globaler Hash ist, dann überschreibst Du ihn immer wieder und legst eine Referenz darauf unter $count in %allCustomers ab...
        
        Besser wäre es innerhalb der While-Schleife ein Hash neu zu deklarieren, z.B.:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
        
        sub einlesen { # no global $count my $count = 0; $db->Sql("select * from customers"); while ($db->FetchRow()) { # new hash for each Row my %customer = ( 'customerId' => $db->Data("kundennummer"), 'street' => $db->Data("strasse"), 'streetNumber' => $db->Data("hausnummer"), 'city' => $db->Data("ort}, ); $allCustomers{$count++} = \%Customer; ## Linuxer "ddv" removed from \%ddvCustomer } return %allCustomers; }
        
        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!
        
        guest Basti
        
        2012-09-17 12:38
        
        Ja, genau das war der Fehler. Oh mein Gott, es ist geschafft :)
        DANKE!
        
        pq
        
        2012-09-17 12:45
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        Guest Basti
        PS: in meinem letzten Eintrag steht da von mir fehlerhaft "\%ddvCustomer". Das ist meinem Test im zweiten Editorfenster geschuldet. Es heißt im echten Programm immer "\%customer"
        
        als angemeldeter benutzer könntest du solche tippfehler korrigieren.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2012-09-07 16:13.