Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: Read a process output asynchronously

by tedrek (Pilgrim)
on Oct 14, 2003 at 23:49 UTC ( #299332=note: print w/replies, xml ) Need Help??

in reply to Read a process output asynchronously

It seems that for this specific problem you should be able to use IO::Select ( which uses select ( the 3 or 4 arg version ) ). It would go a little something like this:

#!/usr/bin/perl -w use strict; use IO::Select; my $timeout = '10'; # We'll wait for up to 10 seconds for input. my @pslist; my $pid = open(my $shell, " ssh -2 $user\@ $peer ./pslist | ") || die "Remote process list gathering error:\n$!.\n"; my $select = IO::Select->new($shell); my $handle; while($handle = $select->can_read($timeout)){ chomp($_ = <$shell>); last unless $_; push(@pslist, $_); } close($shell); unless ($handle) {abort();} foreach (@service){ # .. check the existence of a process }
I tried to swear at perl and it compiled!

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (2)
As of 2021-09-17 06:27 GMT
Find Nodes?
    Voting Booth?

    No recent polls found