Hmm, OK. Here's my first try with Log::Dispatch . It fails : the final log file holds a mixed content of only one script and the end of the launcher logs . I will try with Log::Agent ("dispatch" seems aimed at the opposite, that is log one same things to different places, err ... ).
t1.pl ( launches t2.pl and t3.pl , they all try to log to the same file ) :
#!perl
package MyProjectPackage ;
use strict ;
use warnings ;
use Win32::Process ;
my $MLIB ;
BEGIN {
$MLIB = "c:/zlr" ;
}
use lib ( $MLIB . "/lib/" , $MLIB . "/lib/Perl/" ) ;
use Log::Dispatch ;
use Log::Dispatch::File ;
my $dispatcher = Log::Dispatch->new ;
my $MSOFT = "c:/zlr/script/test" ;
my $call_hProcess = "" ;
my $call_Resultat = 0 ;
my $i = 0 ;
$dispatcher->add( Log::Dispatch::File->new(
name => 'MyProjectErrT1',
min_level => 'info',
filename => "$MSOFT/ErrGeneral.txt" ) );
$dispatcher->log( level => 'info',
message => 'Start of log' );
$call_Resultat = Win32::Process::Create($call_hProcess,
"c:/Perl/bin/Perl.exe",
"perl t2.pl",
0,
IDLE_PRIORITY_CLASS,
"." ) ;
$call_Resultat = Win32::Process::Create($call_hProcess,
"c:/Perl/bin/Perl.exe",
"perl t3.pl",
0,
IDLE_PRIORITY_CLASS,
"." ) ;
while ( $i < 20 ) {
sleep 10 ;
$dispatcher->log( level => 'info',
message => "Launcher : $i\n" );
$i++ ;
}
Here's t2.pl , t3.pl is the same :
#!perl
# Pragmas
package MyProjectPackage ;
use strict ;
use warnings ;
use Win32::Process ;
my $MLIB ;
BEGIN {
$MLIB = "c:/zlr" ;
}
use lib ( $MLIB . "/lib/" , $MLIB . "/lib/Perl/" ) ;
use Log::Dispatch ;
use Log::Dispatch::File ;
my $dispatcher = Log::Dispatch->new ;
my $MSOFT = "c:/zlr/script/test" ;
my $call_hProcess = "" ;
my $call_Resultat = 0 ;
my $i = 0 ;
$dispatcher->add( Log::Dispatch::File->new(
name => 'MyProjectErrT2',
min_level => 'info',
filename => "$MSOFT/ErrGeneral.txt" ) );
$dispatcher->log( level => 'info',
message => 'Start of t2' );
while ( $i < 20 ) {
sleep 10 ;
$dispatcher->log( level => 'info',
message => "t2.pl : $i\n" );
$i++ ;
}
-
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.
|