当てはまらなかったら、エラー処理

質問

いい考えが思い付きません。
是非とも知恵を貸してください…

CGIです。
フォームで入力された文字列とハッシュ内のキーを比較し、
一致すれば値を出力、すべてに当てはまらなかったらエラーを返すというのをやりたいのですが、

$value にフォームからの文字列が入っているとします。

　$value = "1";
　%hash = ("1" => "A", "2" => "B", "3" => "C");

if (&search()) {
　　last;
　} else {
　　&error("一致しません");
}
exit;
#----------------------------------
sub search {
　foreach $key(keys %hash) {
　　if ($key =~ /$value/) {
　　　print "--$hash{$key}\n";
　　}
　}
}
#----------------------------------
sub error {
　print "error $_[0]\n";
}

結果は、

--A
error 一致しません

でした。
$value をキー以外にするとちゃんとエラーになるんですよ。
いい方法はないでしょうか？

回答No.1

leaz024 · ベストアンサー

ある値が、定義済みハッシュのキーとして存在するかどうかのチェックなら、
　　if (exists $hash{$value}) {
　　　　# 存在する
　　}
とします。

また、関数searchでキーとの照合に =~ を使っていますが、「一致」を条件にするならこれでは不十分で、普通は eq を用います。

ちなみに、上記のスクリプトでエラーがでるのは、関数searchが何の値も返さないからです。
　　print "--$hash{$key}\n";
の下に
　　return 1;
を加えてみてください。

お礼

できました！ありがとうございます！！