File::RotateLogs をお手軽にためすスクリプト

MouseX::GetOpt つかうと簡単にためせるね。

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use 5.010000;

use File::RotateLogs;

{
    package File::RotateLogs::Cmd;
    use Mouse;
    extends 'File::RotateLogs';
    with 'MouseX::Getopt';
    __PACKAGE__->meta->make_immutable();
}

my $logger = File::RotateLogs::Cmd->new_with_options();
@ARGV = @{$logger->extra_argv};

while (my $line = <>) {
    $logger->print($line);
}

Published: 2012-08-30(Thu) 06:43