Saving a log without deleting the previous logs?

[Thekid]

Hi, how can I get this Perl script to save the log without automatically deleting the previous logs? It only saves the new one:

print '> Hello Kid ' . $ENV{'USER'} . '.' . "\n";
open(PLANNERLOG, '>/var/log/planner');
print '> Please enter your log data here, end with a "." on a single
line.' . "\n";
my $LogText;
print '> ';
while () {
       unless ($_ ne '.' . "\n") {
               last;
       }
       $LogText .= $_;
       print '> ';
}
 
print '> Log is being saved to /var/log/planner' . "\n";
$DateTime = localtime();
print PLANNERLOG ' -- START OF LOG -- ' . "\n";
print PLANNERLOG 'Date/Time: ' . $DateTime . "\n";
print PLANNERLOG 'Log      : ' . $LogText;
print PLANNERLOG ' -- END OF LOG -- ' . "\n";
die('> Log saved! Now exiting.' . "\n");
 
 

[eWish]

Are you wanting to append the file?

perlfaq5 - "How come when I open a file read-write it wipes it out?"

--Kevin

[KevinADC]

Read the link eWish posted. What you want is to open the file in append /create mode:

open(PLANNERLOG, '>>', '/var/log/planner');

note the double >> instead of single > like you had it.

[Thekid]

Ahh.....thanks! It was the double '>>' that I needed!

[numberwhun]

Ahh.....thanks! It was the double '>>' that I needed!

My personal suggestion would be to add a date/time stamp on to the file, or even just a date stamp (for one file per day). You can do a check to see if the date matches and if not, create a new log for that day. Its a little more coding, sure, but in my opinion, worth it.

Regards,

Jeff