> > perlでリネームするとファイルが上書きされないで内容が消えちゃう(;´Д`)なんでー
> どういうコード書いたよ？

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時20分19秒