当前位置: 首页 > Linux, tips > 正文

让perl程序记录日志

之前简单的接触过perl,因为工作中基本用不到,就不怎么熟

最近拿到一个perl的程序,想修改成自己想要的样子。

执行完,语法没有问题,但就不按照我想的工作,郁闷至极

就想到向外输出一些信息,用来调试

无奈perl了解的太少,又不想花时间好好学习(太无耻了,这点我自己都看不过去了)

网上搜了一把,知道了一个叫做 Log::Log4perl 的模块可以用,赶紧记录下来

先把模块给装上

    perl -MCPAN -e "install Log::Log4perl" 

使用方法

    #!/usr/bin/env perl

    use strict;
    use warnings;

    use Cwd;
    my $curdir = getcwd;

    use Log::Log4perl;

    my $conf = qq{
        log4perl.category.Foo.Bar = INFO,Logfile

        log4perl.appender.Logfile = Log::Log4perl::Appender::File
        log4perl.appender.Logfile.filename = $curdir/test2.log
        log4perl.appender.Logfile.layout = Log::Log4perl::Layout::PatternLayout
        log4perl.appender.Logfile.layout.ConversionPattern = 
         %d{20y-M-d H:m:s:S} %F %L - %m%n
    };

    Log::Log4perl::init (\$conf);

    my $log = Log::Log4perl::get_logger("Foo::Bar");

    $log->trace("trace ...");
    $log->debug("debug ...");
    $log->info("Important Info!");
    $log->warn("warn ...");
    $log->error("error ...");
    $log->fatal("fatal ...");

上面代码的原作者说的太精辟了(倒腾一下上面的例子,我想大慨就明白了)

这里也就不做啥说明了,照抄一下足够用了

这里再记录一个manual的链接

That’s all

    分享到:

本文固定链接: http://klwang.info/log4perl-module-for-perl/ | 数据库|Linux|软件开发

该日志由 klwang 于2013年08月28日发表在 Linux, tips 分类下, 你可以发表评论,并在保留原文地址及作者的情况下引用到你的网站或博客。
原创文章转载请注明: 让perl程序记录日志 | 数据库|Linux|软件开发
关键字: , ,
【上一篇】
【下一篇】

让perl程序记录日志:等您坐沙发呢!

发表评论

*
快捷键:Ctrl+Enter