>>361
一週間もすればなんとなく完成するんじゃね?

こうしてみた

# ●
#if ($FORM{sid}) {
#my $count_sid = grep { /\Q$FORM{sid}\E/ } @Deny;
#return 1 if @Deny and ($count_sid / @Deny > .25 or $count_sid > 64); # ●スレ立て大杉
#push @diff_list, sprintf qq|%s,%s,%d\n|, $IP_number, $FORM{sid}, $FORM{key};
#}

# IP アドレスで処理
#else
{
# リストから検索。存在すれば 1 を返してばいばい。
foreach (@Deny){
return 1 if $IP_number == (split /,/)[0];
}
push @diff_list, sprintf qq|%s,%s,%d\n|, $IP_number, $FORM{sid}, $FORM{key};
}