Как проверить, существует ли ключ в хеше в Perl?

Question

Я хочу проверить, равен ли параметр $PGkey ключ с таким же именем внутри хэш-таблицы. Далее, я хочу сделать это как можно ближе к этому формату:

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

Есть ли простой способ сделать это?

Answer 1

Использование conditional operator позволяет вынесем общий код в том, что если/другое заявление:

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

Или если вы просто искажены проблему и действительно хотите использовать $ хэш {$ PGkey} [$ ID] если $ хэш {$ PGkey} существует и упасть обратно до $ PGval, если это не так, то вы можете сказать

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

быстрое примечание, вы, кажется, использует старые bareword дескрипторов стиля. Новые (если десять лет можно считать новым) лексические дескрипторы файлов превосходят во всех отношениях:

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

Answer 2

Способ проверить хэш-ключа существования:

exists $hash{$key}