/dev/trash has asked for the wisdom of the Perl Monks concerning the following question:
I have this simple piece of 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?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 "Co +uldn't truncate logfile!"; close ARCHIVE; close LOG;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Using OPEN to append to a file
by jjdraco (Scribe) on Oct 19, 2002 at 23:45 UTC | |
by /dev/trash (Curate) on Oct 20, 2002 at 00:46 UTC | |
by jjdraco (Scribe) on Oct 20, 2002 at 00:54 UTC | |
by /dev/trash (Curate) on Oct 20, 2002 at 02:27 UTC | |
Re: Using OPEN to append to a file
by gjb (Vicar) on Oct 19, 2002 at 22:05 UTC |
Back to
Seekers of Perl Wisdom