File::RotateLogs をお手軽にためすスクリプト - tokuhirom's blogMouseX::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); }
極上の人生
