我有这个子来初始化我的记录器：
sub initLogfiles{
Log::Log4perl->easy_init($INFO); # We log all debug,info,warn,error and fatal messages.
my $userlogappender = Log::Log4perl::Appender->new(
"Log::Log4perl::Appender::File",filename => USERLOGFILE,mode => "append",recreate => 1
);
my $userloglayout = Log::Log4perl::Layout::PatternLayout->new("%d;%m%n");
$userlogappender->layout($userloglayout);
$userlogger->add_appender($userlogappender);
}