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

#Perl #hash #each #exists #delete

SN 2013/07/08 01:19:53

Archives > Perl_hash_and_functions.html