配列(@xx)に代入してあるメールアドレスのエラーを回避するには？

[上に] [前に] [次に]
つかさ [E-Mail] 1999/10/30(土) 04:31:04
配列(@xx)を使って、メールアドレスを記述するとエラーが出ます。
この回避策はありますでしょうか？その箇所のソースは以下の通りです。

@emails = {"aaa@xxx.xx.xx","bbb@xxx.xx.xx"};　# ←ここでエラー発生！
$ok=0;
$in_mail = $FORM{'email'};
foreach $email (@emails) {
    if($in_mail eq $email) {
        $ok=1;
    }
}

どうぞ、ご教授をお願い致します。
猫 1999/10/30(土) 04:39:02
Perl5だと\@ってすればいいだけのような？
こんな簡単なことではないのかなぁ？
とりあえずエスケープしてみて下さい。
つかさ [E-Mail] 1999/10/30(土) 04:43:49
すいません、perl5では無い事を記述しておく事を忘れていました。
猫さん、ごめんなさい。
B-Cus 1999/10/30(土) 04:47:41
> @emails = {"aaa@xxx.xx.xx","bbb@xxx.xx.xx"};
@emails = ("aaa@xxx.xx.xx","bbb@xxx.xx.xx");
つかさ [E-Mail] 1999/10/30(土) 05:00:12
[[解決]]
すいませんでした、B-Cusさん。
『配列(xx)』と自分で記述しておきながら…。
申し訳ありませんでした。勿論、無事に解決致しました。
つかさ 1999/10/30(土) 05:01:02
ありがとうございました、B-Cusさん。
[上に] [前に] [次に]