Re^2: Net::OpenSSH across fork & exec

Thanks for such quick reply. I have removed my previous suggestion, since it appears that you have already did that. :)

Regards,
Alex.

Comment on Re^2: Net::OpenSSH across fork & exec

Replies are listed 'Best First'.
Re^3: Net::OpenSSH across fork & exec by salva (Canon) on Mar 16, 2011 at 08:45 UTC
yes, now, it works as follows: `#!perl -w use Net::OpenSSH; my $ssh = Net::OpenSSH->new("hostname"); if (my $pid = fork) { # wait for children, do something } elsif ($pid == 0) { exec "another_perl_script", $ssh->get_ctl_path; } __END__ another_perl_script: #!perl -w use Net::OpenSSH; my $ssh = Net::OpenSSH->new($host_or_some_dummy_value, ctl_path => $ARGV[0], reuse_master => 1); $ssh->system("remote command");` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Net::OpenSSH across fork & exec
by salva (Canon) on Mar 16, 2011 at 08:45 UTC

#!perl -w
use Net::OpenSSH;

my $ssh = Net::OpenSSH->new("hostname");

if (my $pid = fork) {
 # wait for children, do something
} elsif ($pid == 0) {
 exec "another_perl_script", $ssh->get_ctl_path;
}
__END__

another_perl_script:
#!perl -w

use Net::OpenSSH;

my $ssh = Net::OpenSSH->new($host_or_some_dummy_value,
                            ctl_path => $ARGV[0],
                            reuse_master => 1);

$ssh->system("remote command");
[download]

[reply]
[d/l]