>>72
あと、IPアドレスは下位から使った方がバラけかたがいいかも(←あまり根拠なし)。

else {
# 投稿者の IP アドレスを加工しておく。
$IP_Address = s/^\d+\.\d+\.//;

if ($FORM{sid}) {
# ●の場合: リストにSIDが存在すればアウト
for (@Deny) {
return 1 if $IP_Address eq (split /,/)[1];
}
} else {
# リストにIPアドレスがあればアウト
for (@Deny) {
return 1 if $IP_Address eq (split /,/)[0];
}
}
# スルーなのでスレ立て規制リストに登録
unshift @deny, sprintf qq|%s,%s,%s\n|, $IP_Address, $FORM{sid}, $FORM{key};
splice @deny, $SETTING{'BBS_THREAD_TATESUGI'};
}