Perlのhash操作

 
Perl の hash 操作。
なぜかよく忘れるのでメモ。
 

 
# hash の key と value を
# それぞれ変数にバインドするときは each 関数を使う
my %hash = ("key1" => "value1", 
            "key2" => "value2",);
while (my ($key, $value) = each %hash) {
    # ...
}
 
# hash の中に目的の key が存在するかは
# exists 関数を使う
if (exists $hash{"key1"}) {
    # hash から key を削除は delete 関数
    delete $hash{"key1"};
}