Perlコーディング初心者質問スレ Part 51
■ このスレッドは過去ログ倉庫に格納されています
0200nobodyさん
2006/08/02(水) 18:11:03ID:Sa4fTnpW分からないなりに色々と調べて以下のような対応をしてみました。
迷惑書き込みのほとんどが英語の書き込みなので、書き込み内容が
全て半角文字だったら書き込みしないようにしたつもりです。
if($comment =~ /[\x81-\x9f\xe0-\xef][\x40-\x7e\x80-\xfc]/){
$textchk = 0;
}
else{
$textchk = 1;
}
if ( $textchk = 1 ){
print "書込み内容が不適切です\n";
}
この対応でだいぶ書き込みが減ったのですが、まだ一部「Good design!
」みたいな書き込みがされていました。これも全て半角文字なのですが、
なぜ書き込みされてしまうのでしょうか?自分のPCから「Good design!
」と書き込もうとしたときはちゃんとチェックがかかります。文字コード
(シフトJISやEUC)の違いなのでしょうか?
ちなみに
if ( index ($comment, 'Good design!') >= 0 ){
$textchk = 1;
}
という文も入れてみたのですが、ダメでした。
よろしくお願いします。
■ このスレッドは過去ログ倉庫に格納されています