>>587
なんかソースの一部（大事なとこ）が抜け落ちてねーか？ｗ

「もし$addrと$ipが違ってれば〜」っていう条件を抜いてやれば桶。

# IP相違であれば更新
($count,$ip) = split(/:/, $data);
if ($addr ne $ip) {
$count++;
seek(DAT, 0, 0);
print DAT "$count:$addr";
truncate(DAT, tell(DAT));
}
close(DAT);

↓↓↓↓

# IP相違とかそーゆーことは気にせずに常に更新ｗ
($count,$ip) = split(/:/, $data);
$count++;
seek(DAT, 0, 0);
print DAT "$count:$addr";
truncate(DAT, tell(DAT));
close(DAT);