メールアドレスの拒否の方法をお教え下さい。

質問

メールアドレスの拒否の方法をお教え下さい。

Power Search で検索サイトを運営しているのですが、
最近フリーメールアドレスでのスパム登録に悩まされています。

そこで、特定のメールアドレスでの登録を拒否するために、
以下のようにしたのですが上手くいきませんでした。

-----------------------------------------------------------------
#登録を拒否するメールアドレス
# 以下に指定したメールアドレスが入っていた場合、登録を拒否します。
@denyemail = ("abc@yahoo.co.jp","abc@gmail.com");
-----------------------------------------------------------------
foreach(@denyemail){
if ($email =~ /$_/i){
&error("このメールアドレスは登録できません。");
}

}
-----------------------------------------------------------------

正確な記述方法をお分かりになる方がおられましたら、
お教え頂ければ幸いです。

どうぞ宜しくお願い致します。

回答No.2

藤田 朋郎（@hujitomo） · ベストアンサー

＞@denyemail = ("abc@yahoo.co.jp","abc@gmail.com");

値を " でくくってるから @ を配列のプレフィクスとして認識してしまうからではないでしょーか？
単純に

@denyemail = ('abc@yahoo.co.jp','abc@gmail.com');

で行けません？

お礼

ご回答ありがとうございました。

お教え頂いた通りに変更したら上手く引っかかるようになりました！

大変助かりました。

この度はどうもありがとうございました。

回答No.3

taporu

僕の環境では引っかかったので、何か違う理由かもしれませんが、

配列ではない、ということで、\@してみて下さい。

これでもダメだったら、@を.(ピリオド)に変えて下さい。

ピリオドは正規表現で任意の一文字という意味です。

お礼

ご回答ありがとうございました。

下のNO.2のご回答のようにすれば上手くできました。

回答No.1

taporu

引っかかりますけど？？

gabc@yahoo.co.jp　でも引っかかるっていうことでしょうか？

でしたら、

if ($email =~ /$_/i)を
if ($email =~ /^($_)$/i)

にかえてください。

お礼

この度はご回答頂きありがとうございました。

色々と試してみました結果“@(アットマーク)”があると引っかからないようです。
以下のようにすると引っかかりました。

@denyemail = ("yahoo.co.jp","gmail.com");
-----------------------------------------------------------------
foreach(@denyemail){
if ($email =~ /$_/i){
&error("このメールアドレスは登録できません。");
}

}
-----------------------------------------------------------------

その代わり、yahooメールやgmailは全て拒否することになってしまいますが・・・。
@(アットマーク)を認識させるには、何か特別な記述が必要なのでしょうか？