Re^3: Passing filename to Log::Std


Pathologically Eclectic Rubbish Lister
	PerlMonks

Re^3: Passing filename to Log::Std

by borisz (Canon)

on Apr 12, 2006 at 21:47 UTC ( [id://542949]=note: print w/replies, xml )

Need Help??

in reply to Re^2: Passing filename to Log::Std
in thread Passing filename to Log::Std

your code just move the problem. Try this: (untested)


sub StartLogging {
  my $ref = shift @_;    # ref to config hash
  my ( $file, $level );
  $file  = $ref->{log}{file_base} . ".$ref->{hostname}{target}.$0.$$.l
+og";
  $level = $ref->{log}{level};
  if ( $ref->{log}{method} eq "StdLog" ) {
    print "Logging to file $file at minimum loglevel $level\n";

    require Log::StdLog;
    Log::StdLog->import(
                         {
                           level => $level,
                           file  => $file,
                         }
    );

    #now, log messages can be written to {*STDLOG}
    print {*STDLOG} warn => "warn - this is a test";
  }
}
[download]

Boris

Comment on Re^3: Passing filename to Log::Std Download Code

Replies are listed 'Best First'.

Re^4: Passing filename to Log::Std
by bowei_99 (Friar) on Apr 12, 2006 at 22:33 UTC

Update: fixed typo, now runs with error messages:


H:\working_files\win32>perl logtest.pl
Use of uninitialized value in concatenation (.) or string at logtest.p
+l line 32.

Logging to file H:\working_files\test\testfile..logtest.pl.2096.log at
+ minimum l
oglevel 'info'
Unable to open log file 'H:\working_files\test\testfile..logtest.pl.20
+96.log' at
 logtest.pl line 46
[download]

-- Burvil

[reply]
[d/l]

In Section Seekers of Perl Wisdom