perlquestion
/dev/trash
I have this simple piece of code:
<code>use warnings;
use strict;
use diagnostics;
open(LOG,"C:/WINDOWS/U.S. Robotics 56K Voice INT PnP.log") || die "Can't open1";
open(ARCHIVE,">>H:/ppp_stats.log") || die "Can't open2";
while(<LOG>){
print ARCHIVE $_;
}
open(LOG,">C:/WINDOWS/U.S. Robotics 56K Voice INT PnP.log") || die "Couldn't truncate logfile!";
close ARCHIVE;
close LOG;</code>
Basically all I want is for the US Robotics log file to be appended to the ppp_stats log file since Windows truncates the US Robotics file from time to time. it works great 90% of the time but I sometimes get duplicate lines in the appended file. What am I doing wrong?