Comment vérifier si une clé existe dans un hachage en Perl?

Question

Je veux vérifier si le paramètre $PGkey est égal à une clé portant le même nom dans une table de hachage. En outre, je veux le faire dans un format aussi proche que possible:

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"; 
    } 
} 

Existe-t-il un moyen simple de le faire?

Answer 1

Utilisation du conditional operator vous permet de factoriser le code commun dans cette instruction if/else:

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

Ou si vous venez de comporter des anomalies du problème et je veux vraiment utiliser $ hash {PGkey $} [$ id] si hachage $ {$ PGkey} existe et revenir à $ PGval si elle n'a pas, alors vous pouvez dire

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

Une note rapide, vous semblez être en utilisant l'ancien style de bareword handles de fichiers. Les nouveaux (si dix ans peuvent être considérés comme nouveaux) handles de fichiers lexicales sont supérieurs dans tous les sens:

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

Answer 2

La façon de vérifier l'existence clé de hachage est:

exists $hash{$key}