File::Stamped 时间戳log文件

log类库的工具。可以使用myapp.log.%Y%m%d.log 这种形式的log文件

语法：

    use File::Stamped;

    my $fh = File::Stamped->new(pattern => '/var/log/myapp.log.%Y%m%d.txt');

    $fh->print("OK\n");



    # with Log::Minimal

    use Log::Minimal;

    my $fh = File::Stamped->new(pattern => '/var/log/myapp.log.%Y%m%d.txt');

    local $Log::Minimal::PRINT = sub {

        my ( $time, $type, $message, $trace) = @_;

        print {$fh} "$time [$type] $message at $trace\n";

    };

方法：

my $fh = File::Stamped->new(%args);

方法创建一个实例，参数如下：

你需要指定一个模式或者回调函数

模式: 字符串

格式可以看The format is POSIX::strftime(), see also POSIX.
回调模式 : CodeRef

    my $pattern = '/path/to/myapp.log.%Y%m%d.log';

    my $f = File::Stamped->new(callback => sub {

        my $file_stamped = shift;

        local $_ = $pattern;

        s/!!/$$/ge;

        $_ = POSIX::strftime($_, localtime());

        return $_;

    });

close_after_write : Bool

Default value is 1.

iomode: Str

打开文件的模式

Default value is '>>:utf8'. 默认是utf8

autoflush: Bool

属性改变$|.

rotationtime: Int

The time between log file generates in seconds. Default value is 1.

$fh->print($str: Str)

打印字符串到文件