ハッシュのキーの存在確認


 exists関数を使います。
use strict;
use warnings;

my %hoge = (
   "one" => 1,
   "two" => 2,
   "three" => 3,
);

if (exists $hoge{'one'}) {
    print "oneは存在します。\n";
} else {
    print "oneは存在しません。\n";
}

if (exists $hoge{'four'}) {
    print "fourは存在します。\n";
} else {
    print "fourは存在しません。\n";
}

関連項目

exists関数
ハッシュからエントリを削除する
配列値の検索