Re: Running and Monitoring program output


Don't ask to ask, just ask
	PerlMonks

Re: Running and Monitoring program output

by jweed (Chaplain)

on Feb 20, 2004 at 17:17 UTC ( [id://330610]=note: print w/replies, xml )

Need Help??

in reply to Running and Monitoring program output

Well, I think your best bet would be to use the forking open.

Here's how you might do that (this is straight from Cookbook 16.10):

use IO::Handle;
if ($pid = open $child, "-|") {
    while (<$child>) {
        #look ma!  I'm processing!
    }
    close $child;
}
else {
    die "Couldn't fork: $!" unless defined $pid;
    STDOUT->autoflush(1);
    #exec program that wrties to STDOUT
    exit;
}
[download]

Code is (almost) always untested.
http://www.justicepoetic.net/