comment on

Run3 apparently doesn't do concurrency. IPC:Run can be made to do what you want. This works:

#!/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"; }
}
print "end\n";
__END__

use IPC::Run qw ( start pump finish timeout );
my $in;
my $out;

my @cmd = qw( perl timestamp.pl);

## Build the harness, open all pipes, and launch the subprocesses
   my $h = start \@cmd, \$in, \$out, \$out ;
   $in = "" ;

   ## Now do I/O.  start() does no I/O.
   pump $h while length $in ;  ## Wait for all input to go

   ## Now do some more I/O.
   while (1){
       pump $h until $out =~ s/(.+)\n$//gm ;
       last if ("end" eq $1);
        print time, " : $1\n";
    }

   ## Clean up
   finish $h or die "cat returned $?" ;
__END__

1215226647 : 1215226647 info
1215226647 : 1215226647 info
1215226647 : 1215226647 warn
1215226647 : 1215226647 info
1215226647 : 1215226647 warn
1215226647 : 1215226647 warn
1215226647 : 1215226647 info
1215226647 : 1215226647 info
1215226647 : 1215226647 info
1215226648 : 1215226648 warn
[download]

s//----->\t/;$~="JAPH";s//\r<$~~/;{s|~$~-|-~$~|||s |-$~~|$~~-|||s,<$~~,<~$~,,s,~$~>,$~~>,, $|=1,select$,,$,,$,,1e-1;print;redo}

In reply to Re^3: Best practice ipc and Log::Log4perl by starbolin
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.


Clear questions and runnable code get the best and fastest answer
	PerlMonks