in reply to Help in Log::Agent module
#!/usr/bin/perl use strict; use warnings; use Log::Agent; require Log::Agent::Driver::File; require Log::Agent::Tag::String; require qw(/path/to/my_code.pl); # the script to run my $err = '/path/to/file.err'; my $out = '/path/to/file.out'; my $driver = Log::Agent::Driver::File->make( -prefix => 'me', -channels => { 'error' => $err, 'output' => $out }, ); my $t1 = Log::Agent::Tag::String->make(-value => "<tag #1>"); my $t2 = Log::Agent::Tag::String->make(-value => "<tag #2>", -postfix +=> 1); logconfig( -driver => $driver, -tags => [$t1], ); logerr "error string"; use Log::Agent qw(logtags); my $tags = logtags; $tags->append($t2); logwarn "warn string";
|
|---|