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は、あなたがその中で共通のコードをくくり出すことができます/ else文の場合：

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

それとも、単に問題を虚偽表示し、本当に$ハッシュを使用したい場合は、{$ PGkey} [$のID] $ハッシュ{$ PGkey}が存在し、それは、あなたが

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

簡単なメモを言うことができていない場合は、バック$ PGvalに落ちる場合は、古い裸の単語スタイルのファイルハンドルを使用しているように見えます。新しい（10歳が新しい考えることができる場合）字句ファイルハンドルは、あらゆる方法で優れている：

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

Answer 2

方法は、ハッシュキーの存在を確認することです：

exists $hash{$key}