if Abfrage auf Hash value (solved) (Allgemeines zu Perl)

[thread]16986[/thread]

if Abfrage auf Hash value [solved]

Tags: perl5 hash Similar Threads

Readers: 17

Articles: hide open all | hide show old branches

+20 replies
suresh

2011-12-13 09:46

User since
2010-10-12
109 articles
BenutzerIn

Hi,
ich möchte gerne eine If Abfrage auf einen Hash value machen.
Es gilt zwei Fälle zu berücksichtigen:
Zum einen ist ein Wert hinterlegt, zum anderen eben nicht.
Dann steht da nur noch - HASH(0x216f360) drin.

Wie kann ich das gescheit abfangen, sodass das Skript in diesem Fall eine Fehlermeldung zurückliefert?

Danke und Grüße
- +2 replies
- Linuxer
  
  2011-12-13 10:03
  
  User since
  2006-01-27
  3890 articles
  HausmeisterIn
  
  Hi,
  
  das deutet darauf hin, dass da eine Hash-Referenz vorliegt.
  Schau Dir mal http://perldoc.perl.org/functions/ref.html an, mit ref() kannst Du ermitteln, ob eine (und welche Art von) Referenz vorliegt oder nicht.
  
  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!
  - suresh
    
    2011-12-13 13:01
    
    User since
    2010-10-12
    109 articles
    BenutzerIn
    
    Mit der ref() Anweisung funktioniert es wunderbar, danke!
- +6 replies
- pq
  
  2011-12-13 10:04
  
  User since
  2003-08-04
  12208 articles
  Admin1
  
  2011-12-13T08:46:19 suresh
  Es gilt zwei Fälle zu berücksichtigen:
  Zum einen ist ein Wert hinterlegt, zum anderen eben nicht.
  Dann steht da nur noch - HASH(0x216f360) drin.
  
  häh? ich versteh nur bahnhof.
  warum postest du nicht einfach, was genau in dem hash drin ist?
  Data::Dumper nehmen und die ausgabe posten, fertig.
  
  HASH(0x216f360) sieht aus wie die stringifizierung einer hashreferenz, daher ist da sehr wohl ein wert hinterlegt und ich frage mich, wieso du meinst, es wäre keiner hinterlegt.
  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
  - +5 replies
  - suresh
    
    2011-12-13 12:28
    User since
    2010-10-12
    109 articles
    BenutzerIn
    
    Die Ausgabe von Data Dumper im Falle die Referenz zeigt auf einen leeren Wert:
    
    Code: (dl )
    
    $VAR1 = {};
    
    Ansonsten steht da der String drin.
    - +4 replies
    - pq
      
      2011-12-13 12:40
      
      User since
      2003-08-04
      12208 articles
      Admin1
      
      das ist aber kein leerer wert, sondern eine hashreferenz ohne keys. ein "leerer wert" wäre undef oder ein gar nicht existierender key.
      
      wenn dir die abfrage genügt, ob du einen string oder eine hashref als value hast, dann kannst du wie von linuxer vorgeschlagen ref() verwenden.
      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
      - +3 replies
      - suresh
        
        2011-12-13 12:44
        
        User since
        2010-10-12
        109 articles
        BenutzerIn
        
        Ok danke, dann habe ich wohl das Problem "hashreferenz ohne keys" noch nicht durchdrungen.
        
        +2 replies
        
        pq
        
        2011-12-13 12:47
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        wo ist denn das problem?
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
        
        # hash mit einem key my %hash = ( foo => 23, ); # hash ohne keys my %hash = (); # hashref mit einem key my $hashref = { foo => 23, }; # hashref ohne keys my $hashref = {};
        
        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
        
        suresh
        
        2011-12-13 13:02
        
        User since
        2010-10-12
        109 articles
        BenutzerIn
        
        Verstehe jetzt was du meinst!
- +11 replies
- GwenDragon
  
  2011-12-13 10:05
  User since
  2005-01-17
  14741 articles
  Admin1
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  if (exists $HASH{'KEY'} and defined $HASH{'KEY'}) { print "Wert in HASH mit Schlüssel KEY ist ", $HASH{'KEY'}; } else { print "Wert in HASH mit Schlüssel KEY ist nicht definiert"; }
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +10 replies
  - pq
    
    2011-12-13 10:08
    
    User since
    2003-08-04
    12208 articles
    Admin1
    
    wobei das exists() hier unnötig ist.
    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
    - +9 replies
    - Linuxer
      
      2011-12-13 10:14
      
      User since
      2006-01-27
      3890 articles
      HausmeisterIn
      
      Was ist mit einem Leerstring?
      mit $HASH{'KEY'} = '' ... ergibt ein Test ohne exists() im Boolean Kontext FALSE, aber der Schlüssel existiert.
      Oder irre ich da?
      
      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!
      - +8 replies
      - pq
        
        2011-12-13 10:17
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        nicht, wenn man mit defined() prüft, was GwenDragon gemacht hat...
        
        edit: und selbst ohne defined: durch die und-verknüpfung würde die bedingung bei einem leerstring dann ja auch false ergeben...
        Last edited: 2011-12-13 10:19:40 +0100 (CET)
        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
        
        +3 replies
        
        Linuxer
        
        2011-12-13 10:49
        
        User since
        2006-01-27
        3890 articles
        HausmeisterIn
        
        Ich seh da schon Unterschiede im Resultat; alleine durch das Weglassen des exists...
        
        Code: (dl )
        
        1 2 3 4 5
        
        # perl -wle ' %hash = ( key => "" ); if ( exists $hash{key} and defined $hash{key} ) { print "is was da"; } else { print "is nix da"; } ' is was da # perl -wle ' %hash = ( key => "" ); if ( $hash{key} and defined $hash{key} ) { print "is was da"; } else { print "is nix da"; } ' is nix da #
        
        Ohne exists() wird bei einem Leerstring oder einer Null (als Value) das defined nicht zur Ausführung kommen.
        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
        
        pq
        
        2011-12-13 10:57
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        dann hast du mich falsch verstanden. ich meinte, man kann die abfrage auf exists weglassen. nicht einfach das exists um $hash{key} herum weglassen. selbstverständlich weiss ich, dass eine simple abfrage bei einem leerstring false liefert.
        
        Code (perl): (dl )
        
        1 2
        
        if (exists $hash{key} and defined $hash{key}) if (defined $hash{key})
        
        wenn defined, dann ist exists auch immer true, daher ist die abfrage überflüssig und man kann einfach auf defined prüfen.
        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
        
        Linuxer
        
        2011-12-13 11:10
        
        User since
        2006-01-27
        3890 articles
        HausmeisterIn
        
        Gut, jetzt hab ich Dich verstanden ;-) Danke für die Klärung.
        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!
        
        +4 replies
        
        suresh
        
        2011-12-13 12:39
        
        User since
        2010-10-12
        109 articles
        BenutzerIn
        
        So sieht der Code im Moment aus:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8
        
        unless ( defined $information->{project} ) { my ($source) = map { $_->{project} } $information; return $source; } else { print STDERR "Es ist ein Fehler aufgetreten!\n"; exit 1; }
        
        Jetzt hab ich allerdings das Problem, dass die Fehlermeldung trotzdem kommt selbst wenn ein String angegeben ist, die Referenz also nicht auf einen leeren Wert zeigt.
        
        +2 replies
        
        pq
        
        2011-12-13 12:45
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        du prüfst hier, ob der wert von $information->{project} defined ist. das ist er sowohl bei einem string als auch bei einer hashref (auch wenn diese leer ist - nur undef ist nicht defined!).
        
        mittels unless fragst du nun ab: wenn der wert nicht defined ist, dann mach was damit. das ist ja das gegenteil von dem, was du willst.
        du möchtest sicher nicht versuchen, was mit einem undefinierten wert zu machen. warum nimmst du hier also unless statt if?
        
        kennst du schon perldoc perlintro und das ein oder andere tutorial?
        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
        
        suresh
        
        2011-12-13 12:53
        
        User since
        2010-10-12
        109 articles
        BenutzerIn
        
        Das liegt wohl daran, dass mich das Thema etwas verwirrt.
        
        guest wer
        
        2011-12-13 13:08
        
        willst du so was machen?
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        if( defined($information->{project}) ) { return $information->{project}; } else { die "Es ist ein Fehler aufgetreten!\n"; }
        
        oder doch eher so:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12
        
        if( defined $information->{project} ) { if(ref($information->{project}) eq 'HASH') { my %hash=%{$information->{project}}; # mach was mit dem hash } else { return $information->{project}; } } else { die "Es ist ein Fehler aufgetreten!\n"; }
        
        Last edited: 2011-12-13 13:20:58 +0100 (CET)

View all threads created 2011-12-13 09:46.