HoH (solved) (Allgemeines zu Perl)

[thread]16147[/thread]

HoH

Readers: 24

Articles: hide open all | hide show old branches

+10 replies
Rookie4ever

2011-04-02 12:01
User since
2011-04-02
5 articles
BenutzerIn
Hi Leute!

Ich sitz seit Tagen an einem Problem und komme nicht weiter:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11

my @bes = (1,2,3); my %waren = ( "plastik" => {nr => 1111,preis => 1000,verf => 'J',}, "metall" => {nr => 2222,preis => 2000,verf => 'N',}, "holz" => {nr => 3333,preis => 3000,verf => 'J',}, ); print "Bestellnummer: ".$bes[1]."\n"; print "Preis: ".$waren{plastik}{preis}."\n"; print "Preis: ".$waren{$bes[1]}{preis}."\n";
Die Ausgaben der 2 Print-Befehle auf 8 und 10 zeigen, dass sowohl das Array als auch der HoH korrekt befüllt sind. Der Print-Befehl in Zeile 11 bringt kein Ergebnis. Was hab ich hier falsch gemacht?

lG
Stefan
Last edited: 2011-04-02 12:14:35 +0200 (CEST)
- +2 replies
- pq
  
  2011-04-02 12:18
  
  User since
  2003-08-04
  12209 articles
  Admin1
  
  also wenn $bes[1] gleich 2 ist, wie in zeile 1 definiert, dann ist:
  $waren{$bes[1]}{preis}
  gleich
  $waren{2}{preis}
  
  und es gibt keinen hashkey "2" in %waren.
  was soll denn das ergebnis sein?
  
  ich kann nur erahnen, dass du vielleicht eher das möchtest:
  my @bes = qw/ plastik metall holz /;
  
  dann wäre $bes[0] gleich plastik und $bes[1] gleich metall.
  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
  - Rookie4ever
    
    2011-04-02 12:31
    
    User since
    2011-04-02
    5 articles
    BenutzerIn
    
    Ja, sorry, da hab ich Blödsinn getippt. :-)
    
    Korrekter wäre my @bes = (1111,2222,3333);
    
    Aber auch deine Variante wäre ok. Mein Problem besteht darin, dass ich die Daten des HoH abrufen kann, solange ich die "Parameter" in reinem Text formuliere. Ich kriege keine Daten raus, wenn ich den einen durch eine Variable ersetze.
    
    Ich hoffe, ich konnte mich halbwegs verständlich ausdrücken. Ich gehöre bei Perl zu den etwas fortgeschrittenen Noobs, also haut mich nicht, wenn ich mich falsch ausdrücke. ^^
    
    lG
    Stefan
- rosti
  
  2011-04-02 12:25
  
  User since
  2011-03-19
  3566 articles
  BenutzerIn
  
  11: $waren{$bes[1]}{preis}
  
  Es gibt zwar $bes[1] aber keinen key $bes[1] im hash %waren. Frage das mit exists ab. Ober baue eine zweckmäßigere Datenstruktur.
  
  Rolf
  http://blog.rolfrost.de/
  
  The art of steam.
- +6 replies
- GwenDragon
  
  2011-04-02 12:46
  
  User since
  2005-01-17
  14835 articles
  Admin1
  
  Du willst auf den Waren-Hash also über Bestellnummer oder Art des Materials der Ware zugreifen können?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +5 replies
  - Rookie4ever
    
    2011-04-02 12:52
    
    User since
    2011-04-02
    5 articles
    BenutzerIn
    
    Ja, so ist es
    - +4 replies
    - GwenDragon
      
      2011-04-02 13:13
      
      User since
      2005-01-17
      14835 articles
      Admin1
      
      Dann musst du eben den Hash auslesen und auch Daten für die Nummern in den Hash einfügen.
      Beispiel:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14
      
      my @bes = (1111, 2222, 3333); my %waren = ( "plastik" => {nr => 1111,preis => 1000,verf => 'J',}, "metall" => {nr => 2222,preis => 2000,verf => 'N',}, "holz" => {nr => 3333,preis => 3000,verf => 'J',}, ); for my $k (keys %waren) { my $nr = $waren{$k}{nr}; $waren{$nr} = $waren{$k}; } print "Bestellnummer: ".$bes[1]."\n"; print "Preis: ".$waren{metall}{preis}."\n"; print "Preis: ".$waren{$bes[1]}{preis}."\n";
      
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +3 replies
      - Rookie4ever
        
        2011-04-02 17:57
        
        User since
        2011-04-02
        5 articles
        BenutzerIn
        
        Herzlichen Dank an alle!
        
        +2 replies
        
        GwenDragon
        
        2011-04-02 17:58
        
        User since
        2005-01-17
        14835 articles
        Admin1
        
        Und wie hast du es jetzt gelöst und verstanden?
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        Rookie4ever
        
        2011-04-02 18:25
        
        User since
        2011-04-02
        5 articles
        BenutzerIn
        
        Meine Zuordnung war schon ok. Aber ich war dumm genug, den HoH lokal in der Sub, in der ich Werte zuordne, nochmal mit einem eleganten "my" zu deklarieren. Deswegen hatte er nach der Rückkehr ins Hauptprogramm natürlich keine Werte mehr. Asche über mein Haupt.

View all threads created 2011-04-02 12:01.