Re: [log4perl-devel] Using Log4perl in Strawberry Perl

[Mike S. <m...@pe...>]

On Wed, 17 Aug 2011, Richard Thomas wrote:

> Do you know if anyone has had any success with using Log4perl in
> Strawberry Perl?

Yes, it works with Strawberry Perl.

> The reason I ask is that I'm using Strawberry Perl for the first time
> and a script that normally works in Activestate Perl is not working in
> Strawberry Perl.

You're using a 3rd party appender, Log::Dispatch::FileRotate appender,
which isn't part of Log4perl.

While I know that Log4perl works with Strawberry Perl, I don't know
about 3rd party appenders.

Can you give it a try using Log::Log4perl::Appender::File instead? Also,
make sure you're using the latest Log4perl from CPAN.

-- 
-- Mike

Mike Schilli
m...@pe...


> 
> The error I get is "undefined value provided for log level at
> C:/strawberry/perl/site/lib/Log/Log4perl/Appender.pm line 80".
> 
> I've extracted some lines on my script below, so you can see how I setup and use
> Log4perl.
> 
> Please could you let me know if you can think of anything I can try to get this
> working.
> 
> Thanks,
> 
> Richard.
> 
> 
> 
> 
> use strict;
> use warnings;
> 
> use Date::Manip;
> use Log::Log4perl;
> 
> use Storable;
> 
> use String::Parity;
> use String::Parity qw(:DEFAULT /show/);
> 
> use IO::Socket;
> use Time::HiRes qw(time);
> <snip>
> my $log_conf1 = q/
> log4perl.category                                    = INFO, Logfile, Logscreen
> log4perl.appender.Logfile                            = Log::Dispatch::FileRotate
> log4perl.appender.Logfile.filename                   = /;
> 
> my $log_conf2 = q/
> log4perl.appender.Logfile.mode                       = append
> log4perl.appender.Logfile.DatePattern                = yyyy-mm-dd
> log4perl.appender.Logfile.TZ                         = GMT0BST
> log4perl.appender.Logfile.layout                     =
> Log::Log4perl::Layout::PatternLayout
> log4perl.appender.Logfile.layout.ConversionPattern   = %d %m %n
> 
> log4perl.appender.Logscreen                          =
> Log::Log4perl::Appender::Screen
> log4perl.appender.Logscreen.str                      = 0
> log4perl.appender.Logscreen.layout                   =
> Log::Log4perl::Layout::PatternLayout
> log4perl.appender.Logscreen.layout.ConversionPattern = %m %n
> 
> /;
> 
> my$log_conf=sprintf("%s%s.%s.log\n%s",$log_conf1,$ScriptNoExt,$dateformat,$log_conf
> 2);
> 
> Log::Log4perl::init( \$log_conf );
> 
> my $logger = Log::Log4perl::get_logger();
> <snip>
> 
>