Wie überprüfe ich, ob ein Schlüssel in einem Hash in Perl existiert?

Question

Ich möchte überprüfen, ob der Parameter $PGkey gleich einem Schlüssel mit dem gleichen Namen in einer Hash-Tabelle ist. Weiter möchte ich es in einem Format so nahe wie möglich tun:

while(<PARAdef>) { 
    my($PGkey, $PGval) = split /\s+=\s+/; 
    if($PGkey == $hash{$PGkey}) { 
     print PARAnew "$PGkey = $hash{$PGkey}->[$id]\n"; 
    } else { 
     print PARAnew "$PGkey = $PGval\n"; 
    } 
} 

Gibt es eine einfache Möglichkeit, es zu tun?

Answer 1

Mit der conditional operator können Sie den gemeinsamen Code ausklammern, dass wenn/else-Anweisung:

while (<PARAdef>) { 
    chomp; 
    my ($PGkey, $PGval) = split /\s+=\s+/; 
    print "$PGkey = ", 
     $PGval eq $hash{$PGkey}[$id] ? $hash{$PGkey}[$id] : $PGval, "\n"; 
} 

Oder wenn Sie falsche Angaben nur das Problem und wirklich wollen, $ hash {$ PGkey} [$ id] verwenden wenn $ hash {$ PGkey} existiert und zurück zu $ ​​PGval fallen, wenn es nicht der fall, dann kann man

while (<PARAdef>) { 
    chomp; 
    my ($PGkey, $PGval) = split /\s+=\s+/; 
    print "$PGkey = ", 
     $PGkey ne "def" and exists $hash{$PGkey} ? 
      $hash{$PGkey}[$id] : $PGval, "\n"; 
} 

Eine kurze Anmerkung sagen, Sie scheinen mit Handles die alten Bareword Stil werden. Die neuen (wenn 10 Jahre alt neu betrachtet werden kann) lexikalischen Dateihandies überlegen sind in jeder Hinsicht:

open my $PARAdef, "<", $filename 
    or die "could not open $filename: $!"; 

Answer 2

Der Weg für die Hash-Schlüssel Existenz zu überprüfen ist:

exists $hash{$key}