Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
print "Content-type: multipart/x-mixed-replace;"; print "boundary=magicalboundarystring\n\n"; print "--magicalboundarystring\n"; $com = "./myapp 5000"; open PIPE, "$com |"; while ($data = <PIPE>) { my ($read, $write, $update, $complete) = split(/::/, $data); print "Content-type: text/html\n\n"; print "Percent completed: $complete\n"; print "Write Time: $write\n"; print "Read Time: $read\n"; print '</body>'; print '</html>'; print "\n--magicalboundarystring\n"; } close(PIPE);
20070822 Janitored by Corion: Put code into code tags, as per Writeup Formatting Tips
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Perl Script Server Push Died while running
by clinton (Priest) on Aug 21, 2007 at 15:38 UTC | |
by Anonymous Monk on Aug 21, 2007 at 17:57 UTC |