perl 安装LOG4perl 模块

环境信息

ubuntu 12.04 64位 桌面版

Log-Log4perl 的介绍网址：http://search.cpan.org/~mschilli/Log-Log4perl-1.49/lib/Log/Log4perl.pm

下载链接

wget http://search.cpan.org/CPAN/authors/id/M/MS/MSCHILLI/Log-Log4perl-1.49.tar.gz

安装

perl Makefile.PL
make && make install

测试LOG4perl 模块的配置文件 log.conf

log4perl.category.Foo.Bar=DEBUG,Logfile,Screen
log4perl.rootLogger=DEBUG,Logfile,Screen

log4perl.appender.Logfile=Log::Log4perl::Appender::File
log4perl.appender.Logfile.filename=\
                                     sub { return &log4::set_log_name(); }
log4perl.appender.Logfile.layout=Log::Log4perl::Layout::PatternLayout
log4perl.appender.Logfile.layout.ConversionPattern =%d{yyyy/M/d HH:mm:ss} %F %L - %m%n

log4perl.appender.Screen = Log::Log4perl::Appender::Screen
log4perl.appender.Screen.stderr =
log4perl.appender.Screen.layout = Log::Log4perl::Layout::PatternLayout
log4perl.appender.Screen.layout.ConversionPattern =%d{yyyy/M/d HH:mm:ss} %F %L - %m%n

测试test.pl 程序

#!/usr/bin/perl
package log4;
use strict;
use FindBin qw($Bin);
use lib "$Bin/lib";
print "$Bin\n";
use Log::Log4perl qw(get_logger);
my $log = get_logger(__PACKAGE__);
my $log_name="log4.log";
my $log_conf = "log.conf";
print "$log_conf\n";

# Check config every 60 secs
Log::Log4perl::init_and_watch($log_conf,);  

$log->debug("Debug message");
$log->info("Info message");
$log->error("Error message");
$log->info(&ping);
sub ping
{

    my @ping=readpipe("ping -c 4 127.0.0.1");
    return @ping;
}
sub set_log_name
{
    return $log_name;
}

执行测试程序命令

perl test.pl

打印结果

log.conf
// :: test.pl  - Debug message
// :: test.pl  - Info message
// :: test.pl  - Error message
// :: test.pl  - PING 127.0.0.1 (127.0.0.1) () bytes of data.
 bytes from 127.0.0.1: icmp_req= ttl= time=0.032 ms
 bytes from 127.0.0.1: icmp_req= ttl= time=0.027 ms
 bytes from 127.0.0.1: icmp_req= ttl= time=0.026 ms
 bytes from 127.0.0.1: icmp_req= ttl= time=0.027 ms

--- 127.0.0.1 ping statistics ---
 packets transmitted,  received, % packet loss, time 2999ms
rtt min/avg/max/mdev = 0.026/0.028/0.032/0.002 ms

并且日志文件 log4.log 内容如下

// :: test.pl  - Debug message
// :: test.pl  - Info message
// :: test.pl  - Error message
// :: test.pl  - PING 127.0.0.1 (127.0.0.1) () bytes of data.
 bytes from 127.0.0.1: icmp_req= ttl= time=0.023 ms
 bytes from 127.0.0.1: icmp_req= ttl= time=0.028 ms
 bytes from 127.0.0.1: icmp_req= ttl= time=0.028 ms
 bytes from 127.0.0.1: icmp_req= ttl= time=0.027 ms

--- 127.0.0.1 ping statistics ---
 packets transmitted,  received, % packet loss, time 2999ms
rtt min/avg/max/mdev = 0.023/0.026/0.028/0.005 ms