マルチバイト文字の入力がないとエラー

海外スパムに対応するため、フォームの入力時に、日本語文字がないとエラーを返す。

 

Jcode.pl版

my ($match,$mojicode) = jcode::getcode(\$CGI{'comment'});
if($mojicode eq ""){	$error_msg = '登録出来ません';	&error;}

 

正規表現

if (!$CGI{'y_name'} =~ /[^\x20-\x7E]/) {$mess = '登録出来ます';	&err_Pages;}
if ($CGI{'y_name'} !~ /[^\x20-\x7E]/) {$mess = '名前は日本語で記入してください。';	&err_Pages;}