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.
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];
};
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.
