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:

Expand|Select|Wrap|Line Numbers

 
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:

Expand|Select|Wrap|Line Numbers

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

Saving a log without deleting the previous logs?

Post your reply

Similar topics