Here is *maybe* another way to get what you want - not really sure about this, but here it is. How about having blackbox.pl write to a fifo (named pipe), and then having the script above read from the fifo? All you need to do is: 
  1. create the fifo using 'mkfifo', and make sure blackbox.pl
     has write permissions to it.
  2. change blackbox.pl to write to the fifo file, instead
     of writing to STDOUT.
  3. change your script above to read from the fifo file
     instead of from PIPE1, like this

        my $fifo_file = "/path/to/my_fifo";
        open FIFO, "<$fifo_file" or die "Can't read $fifo_file: $!";
        while (<FIFO>) {
             # ...Filter and munge $_
             print $_;
        }

[download]

You'll have to play with this a little to get it to work the way you want, but basically written this way, this script(reading from FIFO) will block on the while (<FIFO>) until something is written to the fifo file.

Just for some more reference, the Perl Cookbook pages 576-580 has a recipe for working with a fifo. Also, Programming Perl 3rd Edition p.433 describes Named Pipes.

HTH.

In reply to Re: Handling program output in real time by hmerrill
in thread Handling program output in real time by dvergin

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.