comment on

What I want:

read unbuffered from a child process ( long running process ).

capture childprocess stderr & stdout separately

write the childprocess stdout and stderr stream to a logfile and tag lines with a <timestamp> and a tag <INFO> or <ERROR> depending on the source stream.

IPC::Run3 almost does what I need.

#!/usr/bin/perl
# timestamp.pl
$|++;
while(time - $^T<10){
  select undef,undef,undef, 0.1;
  if ( rand()<0.5) {
    print STDERR  time(),  " warn\n";
  } else {
    print time(), " info\n";
  }
}
__END__
[download]

use IPC::Run3 qw(run3);
my @cmd = ('perl', 'timestamp.pl');
run3 \@cmd, undef, \&out, \&err;
sub out {
  print time(), " out: $_\n";
}
sub err {
  print time(), " err: $_\n";
}
__END__
# The problem is that run3 buffers the output.
1215162770 out: 1215162760 info
1215162770 out: 1215162760 info
1215162770 out: 1215162761 info
1215162770 out: 1215162761 info
1215162770 out: 1215162761 info
1215162770 out: 1215162761 info
1215162770 out: 1215162762 info
1215162770 out: 1215162762 info
1215162770 out: 1215162762 info
1215162770 out: 1215162763 info
[download]

print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});

In reply to Re^2: Best practice ipc and Log::Log4perl by codeacrobat
in thread Best practice ipc and Log::Log4perl by codeacrobat

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.


"be consistent"
	PerlMonks