禁止ワードの設定についてお尋ねします。

下記の中で、禁止メールアドレスや禁止用語の設定ができると思うのですが、どの部分に禁止したいメールアドレスや用語を入れればいいのか分かりません。
何方か分かる方いないでしょうか？
いた際にはご指導よろしくお願いします。

# 禁止メールアドレスのチェック
if(@ngemails){
local($ngemail_flag) = '0';
foreach $ngemail (@ngemails){
if($in{'email'} eq $ngemail){$ngemail_flag = '1'; last;}
}
if($ngemail_flag){&error('メールアドレスが拒否されました');}
}
# 禁止用語のチェック
if(@ngwords){
local($ngword_flag) = '0';
foreach $ngword (@ngwords){
if($in{'comment'} =~ /$ngword/i){$ngword_flag = '1';}
if($in{'sub'} =~ /$ngword/i){$ngword_flag = '1';}
}
if($ngword_flag){&error('禁止用語が含まれています');}
}

No.2 ベストアンサー 回答者： okmotokun 回答日時： 2008/12/12 15:38

質問文のコードは、禁止メールアドレスおよび禁止用語に該当するかどうかをチェックしている部分ですから、それ以前に No.1解答者が示されたように設定するところがあると思います。

ところで、使っている日本語文字コードが Shift_JIS の場合は、定義した禁止用語によっては「禁止用語のチェック」のところでエラーになります。
エラーを回避するには、禁止用語、$in{'sub'}、$in{'comment'}ともに EUC-JPなどに変換しておいてチェックするとか、正規表現の $ngword を \Q,\E で括るとかの工夫が要ります。

No.1 回答者： lesstia 回答日時： 2008/12/12 13:54

@ngemails = ('[e-mail]', '[e-mail]');

@ngwords = ( '暴力', 'ホテル', '危険' );

のような感じですかね。