Mit "defined" wird hash key angelegt. (Allgemeines zu Perl)

[thread]17363[/thread]

Mit "defined" wird hash key angelegt.

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+7 replies
Gast BobderHund

2012-04-25 20:36
Hallo,

ich möchte gerne überprüfen ob ein Hash existiert oder nicht.
Dies überprüfe ich mit "defined".

In meinem Beispiel existiert der Hash nicht.
Aber nach einer "if defined" abfrage wird er anscheinend erzeugt.

Anbei mein Test Script.
Bei der ersten Schleife wird nichts zurückgegeben und bei der If defined abfrage wird "no" ausgegeben.
Doch bei der zweiten schleife wird der hash ausgegeben.
Wie kann ich das erzeugen dieses Hashes unterbinden?
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 foreach $key (keys %value_xml){ if($key eq "IAFIM"){ foreach $dis (sort keys %{$value_xml{$key}}){ print "\n4: $key - $dis"; } } } if (defined $value_xml{"IAFIM"}{"PLMN-PLMN/MRBTS-999977/LNBTS-999977/LNCEL-1"}{"ocAcBarAC"}) { print "yes"; }else{ print "no";} foreach $key (keys %value_xml){ if($key eq "IAFIM"){ foreach $dis (sort keys %{$value_xml{$key}}){ print "\n4: $key - $dis"; } } }
Vielen Dank.

Gruß

modedit Editiert von GwenDragon: tab-Schrittweite auf 4 gesetzt
Last edited: 2012-04-26 09:37:48 +0200 (CEST)
- +6 replies
- jan
  
  2012-04-25 21:31
  User since
  2003-08-04
  2536 Artikel
  ModeratorIn
  benutz exists:
  
  Code: (dl )
  
  1 2 3 4
  
  my %hash = (); if(exists $hash{ 'meinkey' }) { print "meinkey existiert\n"; }
  
  mit defined prüfst Du, ob der Wert des hash-Elementes definiert ist, nicht, ob der Key existiert.
  - +4 replies
  - Gast Bobderhunf
    
    2012-04-25 21:36
    
    Hi,
    
    danke für deine Antwort.
    
    Ich möchte ja wissen ob der Hash Key definiert ist aber bei der if abfrage wird ein Key generiert und das möchte ich verhindern.
    
    BR
    Last edited: 2012-04-25 21:46:48 +0200 (CEST)
    - +3 replies
    - jan
      
      2012-04-25 21:49
      
      User since
      2003-08-04
      2536 Artikel
      ModeratorIn
      
      Nein, Du willst wissen, ob der Key existiert.
      
      Mit defined würdest Du abfragen, ob das, was in dem Element, dass mit dem Key meinkey angesprochen wird, etwas definiertes drin ist.
      
      also
      
      Code: (dl )
      
      if(defined $hash{ $key })
      
      ist wie
      
      Code: (dl )
      
      my $foo = $hash{$key}; if(defined $foo)
      
      und deshalb wird das Element erzeugt.
      - +2 replies
      - pq
        
        2012-04-26 00:00
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        auch da wird kein key angelegt =)
        
        Code: (dl )
        
        1 2 3 4 5 6
        
        $ perl -wE' my %hash = ( a => 1 ); my $foo = $hash{foo}; if(defined $foo) { 1 } say keys %hash;' a
        
        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
        
        jan
        
        2012-04-26 09:44
        
        User since
        2003-08-04
        2536 Artikel
        ModeratorIn
        
        ah, wunderbar, ich hatte das gar nicht getestet, sondern einfach angenommen ;)
        
        danke für die korrektur
  - pq
    
    2012-04-25 23:55
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    weder mit defined noch mit exists wird ein hashkey angelegt, der abgefragt wird. das ist ein häufiges missverständnis bei autovivification. erst dereferenzierung legt einen key an, also eine operation, bei der perl den key erst anlegen muss, um eine weitere abfrage durchzuführen:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
    
    $ perl -wE' my %hash = ( a => 1 ); if (defined $hash{b}) { 1 } say "defined b: ",keys %hash; if (exists $hash{c}) { 1 } say "exists c: ", keys %hash; if (defined $hash{B}->{foo}) { 1 } say "defined deref B: ", keys %hash; if (exists $hash{C}->{foo}) { 1 } say "exists deref C: ", keys %hash; ' defined b: a exists c: a defined deref B: aB exists deref C: aCB
    
    man sieht, dass bei den einfachen defined und exists nichts angelegt wird, aber behandelt man den *wert* des keys selber als hash, wird er automatisch angelegt. also z.b. $hash{key}->{weiterer_key} oder %{ $hash{key} }
    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-04-25 20:36.