> > どういうコード書いたよ？
> open(LOG,"< $self->{logdir}$self->{logname}.log") or die("ログファイルが開けません。\n");
> open(TMP,"> $self->{logdir}$self->{logname}.tmp") or die("一時ファイルが開けません。\n");
> print TMP $newline;
> while(<LOG>){
> 	print TMP $_;
> 	if(tell(TMP) + length($_) >= 1024*16){
> 		last;
> 	}
> }
> close(TMP);
> close(LOG);
> my $result = rename("$self->{logdir}$self->{logname}.tmp","$self->{logdir}$self->{logname}.log");
> あうあう

消さねーとリネーム失敗だろ

参考：2007/05/04(金)14時28分26秒