#================================================================
#＜＜不適切な言葉をチェックします＞＞
#　この関数は、指定した文字列中に$WORD[]で登録している
#　文字列が見つかると 1 を、見つからない場合は 0 を返す。
#[書式]
# $ans = &wordcheck ('文字列');
# $ansには、0 か、1 が代入されます。
#[用例]
# if (!(&wordcheck ($FORM{'comment'}))) {
# フォームからのコメントの中に不適切な言葉がない場合だけ
# ファイルに保存しています。
# 
# 複数のデータから検索する場合は、
# if (!(&wordcheck ("$FORM{'name'}$FORM{'comment'}"))) {
# のようにダブルクォーテーション(")で囲んで指定します。
#=================================================================
sub wordcheck { 
	local($string) = $_[0]; 
	local($match) = 0; 
	$WORD[0] = 'アダルト'; 
	$WORD[1] = '死ね'; 
	$WORD[2] = '殺す'; 
	$WORD[3] = '馬鹿'; 
	foreach $line (@WORD) { 
		if (index($string,$line) >= 0) { $match = 1; last; } 
	} 
	$match; 
}