Beefy Boxes and Bandwidth Generously Provided by pair Networks Frank
No such thing as a small change
 
PerlMonks  

Re^4: Reading non-blockingly / "awk has to be better for something."

by Anonymous Monk
on Jul 28, 2012 at 13:02 UTC ( #984194=note: print w/ replies, xml ) Need Help??


in reply to Re^3: Reading non-blockingly / "awk has to be better for something."
in thread Reading non-blockingly / "awk has to be better for something."

Here's a self-contained version of that code.

use Gtk2 '-init'; use Gtk2::Helper; use Glib qw/TRUE FALSE/; use IO::Handle; my $cmd = [perl => -e => '$|++; for my $i (0..4) { $sum+= $i; print +"Line $i: sum = $sum\r"; sleep 1;}']; my $cb = sub {print "CB: >>" . shift() . "<<\n";}; open(my $fh, '-|', @$cmd) or die "failed to launch external command: + $!"; $fh->blocking(0); $tag = Gtk2::Helper->add_watch($fh->fileno, in => sub { if ($fh->eof) { print "pipe EOF\n"; Gtk2::Helper->remove_watch($tag); close $fh; return; } while (1) { my $buf; $fh->sysread($buf, 4095); print "READ: >>$buf<<\n"; last unless $buf; for (split(/[\r\n]/, $buf)) { $cb->($_); } } # keep watch active return TRUE; }); Gtk2->main;

It goes into EOF-loop if it says last unless $buf, and into slurp mode if it says return FALSE unless $buf


Comment on Re^4: Reading non-blockingly / "awk has to be better for something."
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://984194]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (15)
As of 2014-04-17 19:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (454 votes), past polls