Counter mit Macken

[Christian Bliß]

Hier funktioniert das aber nicht, da eine neue datei erstellt wird.

  
# Alte IP-Adressen in ip.txt löschen START #  
open IP, "+<$root/cgi-bin/counter/ip.txt" or die "error: $!";  
flock IP, 2 or die "flock: $!";  
open IPTMP, ">$root/cgi-bin/counter/ip.txt.tmp"  or die "error: $!";  <--------  
flock IPTMP, 2 or die "flock: $!";  
while (<IP>) {  
  my ($l_ip, $l_zeit) = split(/##/, $_);  
  chop($l_zeit);  
  $alter = $zeit - $l_zeit;  
  next if ($alter > $reload);  
  print IPTMP "$l_ip##$l_zeit\n";  
}  
close IPTMP;  
close IP;  
  
unlink ("$root/cgi-bin/counter/ip.txt");  
rename ("$root/cgi-bin/counter/ip.txt.tmp", "$root/cgi-bin/counter/ip.txt");  
# Alte IP-Adressen in ip.txt löschen ENDE #  

Was mach ich da?