comment on

Hello PerlMonks,

I am implementing perl logging using Log4perl. As part of the input to a config file, the user provides the log level (Debug,Info,Warn,Error,Fatal). Depending on this, the log level is set on the log handler($DEBUG,$INFO,$WARN,$ERROR,$FATAL).

Mentioned below is a prototype of the code. I get the following error when i assign "$loglev" to the log handler "$logger->level($loglev)" - "invalid level '$INFO' at tmp5.pl line 19".

Is '$INFO' equivalent to $INFO?

#!/usr/software/bin/perl -w

use Log::Log4perl qw(get_logger :levels);

my $lev = "INFO";
my $loglev;

if ($lev =~ /.*DEBUG.*/i){
        $loglev = '$DEBUG';
}elsif($lev =~ /.*INFO.*/i){
        $loglev = '$INFO';
}elsif($lev =~ /.*WARN.*/i){
        $loglev = '$WARN';
}elsif($lev =~ /.*ERROR.*/i){
        $loglev = '$ERROR';
}elsif($lev =~ /.*FATAL.*/i){
        $loglev = '$FATAL';
}else{
        die "\nPlease provide the correct log level\n";
}

my $logger = get_logger();
    $logger->level($loglev); # $DEBUG,$INFO,$WARN,$ERROR,$FATAL

my $appender = Log::Log4perl::Appender->new(
        "Log::Dispatch::File",
        filename => "test.log",
        mode     => "append",
    );

$logger->add_appender($appender);

my $layout =
      Log::Log4perl::Layout::PatternLayout->new(
                     "%d %p> %F{1}:%L %M - %m%n");
 $appender->layout($layout);


my $cnt = 100;

if ($cnt == 100){
        hit();
}else{
        miss();
}

sub hit {

        $logger->info("\nhit a century");
}
sub miss{

        $logger->error("\nDid not hit a century");
}
[download]

In reply to Scalar variable value is name of a scalar variable by perlpal

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


go ahead... be a heretic
	PerlMonks