Tie::Handle::FileWriteRotate - Filehandle tie to write to autorotated file with File::Write::Rotate
version 0.02
use Tie::Handle::FileWriteRotate; tie *FH, 'Tie::Handle::FileWriteRotate', dir=>'/some/dir', prefix=>'myapp', size=>25*1024*1024, histories=>5; print FH "Logging a line\n"; print FH "Logging another line\n";
This module ties a filehandle to File::Write::Rotate object.
I first wrote this module to tie STDERR, so that warnings/errors are logged to file instead of terminal (with autorotation, for good behavior).
Tie this package to file handle. LIST will be passed to File::Write::Rotate's constructor.
LIST
To log warnings/errors to terminal as well as autorotated file, you can do something like this instead:
my $fwr = File::Write::Rotate->new(...); $SIG{__WARN__} = sub { $fwr->write(~~localtime, " ", $_[0], "\n"); warn $_[0]; }; $SIG{__DIE__} = sub { $fwr->write(~~localtime, " ", $_[0], "\n"); die $_[0]; };
File::Write::Rotate
Steven Haryanto <stevenharyanto@gmail.com>
This software is copyright (c) 2012 by Steven Haryanto.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
To install Tie::Handle::FileWriteRotate, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Tie::Handle::FileWriteRotate
CPAN shell
perl -MCPAN -e shell install Tie::Handle::FileWriteRotate
For more information on module installation, please visit the detailed CPAN module installation guide.