Hash durch if geändert? (Allgemeines zu Perl)

[thread]14497[/thread]

Hash durch if geändert?

Leser: 21

Articles: hide open all | hide show old branches

+9 replies
bianca

2010-01-15 20:16
User since
2009-09-13
7016 Artikel
BenutzerIn
Mal kurz eine Frage, ich stehe gerade wie vor einem Baum:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

#!/usr/bin/perl -w use strict; use diagnostics; my %hash; $hash{1}{2} = '123'; print "vorher:\n"; foreach my $xyz (sort {lc $a cmp lc $b} keys %hash) { print "$xyz=\'$hash{$xyz}\'\n"; } if (defined $hash{0}{2}) { } print "nachher:\n"; foreach my $xyz (sort {lc $a cmp lc $b} keys %hash) { print "$xyz=\'$hash{$xyz}\'\n"; }
Warum bringt das bei mir
Code: (dl )

1 2 3 4 5

vorher: 1='HASH(0x235278)' nachher: 0='HASH(0x2352cc)' 1='HASH(0x235278)'
Woher kommt denn jetzt der neue Ast {0} obwohl ich nur ein if() auf Ast {0} gemacht habe ???
Kann ein if() ändernde Auswirkung haben? Falls ja, in welchen Fällen ist das so?
Danke
10 print "Hallo"
20 goto 10
- +2 replies
- pq
  
  2010-01-15 20:25
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  nennt sich autovivification.
  http://p3rl.org/perlglossary
  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
  - bianca
    
    2010-01-15 20:30
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2010-01-15T19:25:08 pq
    nennt sich autovivification.
    
    Oft gehört und immer gehofft, nix mit zu tun zu haben und auch nie verstanden.
    Manno, wie kann ich das denn verhindern?
    Kommt mir gerade irgendwie dämlich vor, in meiner Schleife jeden Ast bis in die letzte Tiefe auf defined zu überprüfen, bevor ich ihn verwende, nur wegen dieses Problems.
    10 print "Hallo"
    20 goto 10
- +6 replies
- GwenDragon
  
  2010-01-15 20:31
  
  User since
  2005-01-17
  14761 Artikel
  Admin1
  
  Wenn du wissen willst, ob in einem Hash shon ein Eintrag ist, ohne ihn durch Perl automatisch erstellen zu lassen (Autovivication), musst du exists verwenden.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +5 replies
  - bianca
    
    2010-01-15 20:54
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2010-01-15T19:31:37 GwenDragon
    Wenn du wissen willst, ob in einem Hash shon ein Eintrag ist, ohne ihn durch Perl automatisch erstellen zu lassen (Autovivication), musst du exists verwenden.
    
    Das scheint jetzt mein akutes Problem nicht wirklich zu beheben, da folgender Code den gleichen "Mist baut":
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
    
    #!/usr/bin/perl -w use strict; use diagnostics; my %hash; $hash{1}{2} = '123'; print "vorher:\n"; foreach my $xyz (sort {lc $a cmp lc $b} keys %hash) { print "$xyz=\'$hash{$xyz}\'\n"; } if (exists $hash{0}{2}) { } print "nachher:\n"; foreach my $xyz (sort {lc $a cmp lc $b} keys %hash) { print "$xyz=\'$hash{$xyz}\'\n"; }
    
    EDIT: Allerdings dauert die exists Abfrage etwa eine halbe Sekunde länger, das kann ich mit bloßem Auge erkennen. Warum? Keine Ahnung!
    Last edited: 2010-01-15 20:56:18 +0100 (CET)
    10 print "Hallo"
    20 goto 10
    - +4 replies
    - pq
      
      2010-01-15 20:57
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      auch bei exists gilt, dass du die einzelnen ebenen einzeln testen musst.
      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
      - +2 replies
      - bianca
        
        2010-01-15 20:59
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2010-01-15T19:57:34 pq
        auch bei exists gilt, dass du die einzelnen ebenen einzeln testen musst.
        
        AAAAhhhh!
        
        Code (perl): (dl )
        
        1 2 3 4
        
        if (defined $hash{0}) { if (defined $hash{0}{2}) { } }
        
        Das verhindert diesen Mist!
        
        Danke pq!
        10 print "Hallo"
        20 goto 10
        
        MatthiasW
        
        2010-01-15 22:18
        
        User since
        2008-01-27
        367 Artikel
        BenutzerIn
        
        Testet aber nicht, ob es {0}{2} gibt, sondern obs definiert ist.. exists prüft ob der key im hash enthalten ist:
        
        Code (perl): (dl )
        
        if ( exists $hash{0} and exists $hash{0}{2} ) ...
        
        MfG
        perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
      - betterworld
        
        2010-01-15 23:55
        
        User since
        2003-08-21
        2614 Artikel
        ModeratorIn
        
        autovivification
        Lieblingsmodule: IPC::System::Simple, Path::Class

View all threads created 2010-01-15 20:16.