ぜろちゃんねるスクリプト総合質問スレ Part5

290 ：7M. ◆dq7M./4Uw. ：04/04/17 18:31 ID:???

訂正
1000越えの時は単に行数読み込みっぽい。
↓実際のそーす
unless( -w $DATAFILE){
DispError("ＥＲＲＯＲ！","ＥＲＲＯＲ：このスレッドには書き込めません。");
}
if (open(OUT, "+>>$DATAFILE"))
{
my @logdat = <OUT>;
my $lognum = @logdat;
++$lognum;
if($lognum > 1000)
{
close(OUT);
DispError("ＥＲＲＯＲ！", "ＥＲＲＯＲ：このスレッドには書き込めません。緊急緊急緊急!!");
}
print OUT "$outdat\n";
（以下略