in reply to Re^4: SSH to remote subsystem (Net::OpenSSH?)
in thread SSH to remote subsystem (Net::OpenSSH?)

You have to close the input and output pipes before calling waitpid: 
...
close $in;
close $out;
waitpid($pid, 0);

[download]

Replies are listed 'Best First'.
Re^6: SSH to remote subsystem (Net::OpenSSH?)
by sojourner9 (Initiate) on Mar 20, 2013 at 15:39 UTC

    That got it! Thanks!

    It's working perfectly now using the large block of code posted above with the addition of those two closes.

    The rest of this will just be the grunt work of turning the replies into useable formats for other tools.

[reply]
      @sojourner9

      I'm using your code snippet to talk to a NETCONF Agent. The problem I'm having is that the response is only showing the hello response, nothing else. For my second query I have sent a get-config and can see that processed on the Agent and a log entry confirming that it sent the response.

      Would it be possible for you to append your mainline is case something has got missed?

      Below is the merged content from the thread above that I'm using. 

      ...

## PRINT THE RESULTS
while (<$in>)
{
        print;
        last if $_ =~ m/\/nf:rpc-reply/;
};
close $in;
close $out;
waitpid($pid, 0);
exit;

      [download]
[reply]
[d/l]
        Try closing $out before reading from $in or adding a new line after the last end-of-command marker.
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom