Restricting Size of log files

[user2base]

I've got a script that opens a log file and write into it.
I would like this file not to exceed a certain limit (500 lines for instances) i.e if I had line #501 line it's going to remove line #1 and so on...

Is there a nice way to achieve that ?

 

[Haunter]

Since your are using lines instead of actual filse size this is a sinch.

$new = "new_log_entry";
open (TXTFILE, "> /html/Inserts/FOOTER.txt&quot||die "Cannot open HEADER.txt file:$!: ./html/Inserts/HEADER.txt";
@lines = <TXTFILE>;


if ($#lines >= 500){
$x = shift(@lines);
push (@lines ,$new_entry);
} else { push (@lines ,$new_entry);}
foreach $item (@lines){
print TXTFILE $item;
}
close(TXTFILE);