Wow, a complicated question that I know very little
about. But since nobody else has jumped in, I will
show my ignorance by suggesting this:
Perhaps change $command to @command.
or
use something like
local $/;
These beginners questions are getting
pretty complicated :-)
Mike
On 8/23/2019 11:16 AM, Mario Galindez wrote:
Folks,
I need to execute a program in a remote machine, that takes its input
from STDIN.
I created a user in such remote machine, and set my program as the
shell for that account (so I don't need to provide shell access).
On my local node, I have this program:
#!/usr/bin/perl
use IPC::Open3;
use POSIX;
$inputfile= $ARGV[0];
open(FILE, '<', "$ARGV[0]") or die $!;
$command= "ssh user\@remotehost.com <http://remotehost.com>";
$pid = open3('<&FILE', '>&STDOUT', '>&STDERR', $command);
waitpid( $pid, 0 );
What I expect is that I pass the name of the file as arguments of this
program ($ARGV[0]), and the contents of this file is fed as STDIN of
the child I've spawn with open3. This should be received as STDIN of
my remote program, and the results of the remote program would be
printed on STDOUT.
This works well. However, my program only reads the first line, and
then terminates.
If I do a manual test, and do ssh u...@remotehost.com
<mailto:u...@remotehost.com>, and type multiple lines of input, then
things work as expected.
Any clues?
Thanks!
-m
