Net::OpenSSH pass options to ssh

[zn553]

Hello how do I pass several options to ssh using Net::OpenSSH module i have this:

my $ssh = Net::OpenSSH->new($host,
                            user => $user,
                            master_opts => ['-vvv'],
                            key_path= $private_key_path,
                            default_ssh_opts=>[-o =>'Port=24']

);
$ssh->error and
  die "Couldn't establish SSH connection: ". $ssh->error;

I would like to do something similar to this: ssh -o ConnectTimeout=60 -oport=24 when I try it is still port 22 being used. thank you

[salva]

$ssh = Net::OpenSSH->new(...,
                         master_opts => ['-vvv', '-oPort=24', '-oConne
+ctTimeout=60']);

or...

$ssh = Net::OpenSSH->new(...,
                         port => 24,
                         master_opts => ['-vvv', '-oConnectTimeout=60'
+]);

[thanos1983]

Hello zn553,

Welcome to the Monastery. You can find what you are looking for and much more here Re: SSHing in multiple servers and execute command on each.

Update: Minimal example with code see here: Re: Perl script works differently from Apache then CMD line.

Update2: Sample of code with multiple commands in one of the links that I provide you Re: Simple SSH based chat client:

my ($stop, $pid_stop) = $ssh->open2pty("sudo -k; sudo service ntp stop
+")
    or die "open2pty failed: " . $ssh->error . "\n";

From the module documentation Net::OpenSSH/Net::OpenSSH methods:

($in, $out, $err, $pid) = $ssh->open_ex(\%opts, @cmd)

Hope this helps, BR.

[zn553]

Hello my question is more related to pass several options to SSH using default_ssh_opts

[salva]

Net::OpenSSH constructor accepts two different sets of options to be passed to ssh: master_opts and default_ssh_opts.

The first set goes into the ssh call that connects to the remote machine and creates the multiplexing socket.

The second set goes into the ssh calls that are used to run the remote commands (when calling system or capture, for instance). They reuse the connection established by the master ssh process, and so at that point it is usually too late to set most of the options supported by ssh. In practice, using default_ssh_opts is very uncommon.

[thanos1983]

Hello zn553,

I was under the impression that you asked how to pass multiple commands, this is why I post my answer. Well fellow Monk salva has answered your question already :).

BR / Thanos

[kcott]

G'day zn553,

Welcome to the Monastery.

As I can see no other mention of it, I thought I'd point out that your first statement has:

... key_path= $private_key_path, ...

Here's how Perl sees that statement:

$ perl -MO=Deparse,-p -e 'my $ssh = Net::OpenSSH->new($host, user => $
+user, master_opts => ["-vvv"], key_path= $private_key_path, default_s
+sh_opts=>[-o =>"Port=24"]);'
Can't modify constant item in scalar assignment at -e line 1, near "$p
+rivate_key_path,"
-e had compilation errors.
(my $ssh = 'Net::OpenSSH'->new($host, 'user', $user, 'master_opts', ['
+-vvv'], ('key_path' = $private_key_path), 'default_ssh_opts', [(-'o')
+, 'Port=24']));

Changing '=' to '=>':

$ perl -MO=Deparse,-p -e 'my $ssh = Net::OpenSSH->new($host, user => $
+user, master_opts => ["-vvv"], key_path=> $private_key_path, default_
+ssh_opts=>[-o =>"Port=24"]);'
(my $ssh = 'Net::OpenSSH'->new($host, 'user', $user, 'master_opts', ['
+-vvv'], 'key_path', $private_key_path, 'default_ssh_opts', ['-o', 'Po
+rt=24']));
-e syntax OK

This comment is not intended to invalidate other responses. However, as you've shown no surrounding code — which could perhaps capture the error in an eval, or similar, block — nor any error or warning output, this may be an additional problem you'll need to address.

If you're unfamiliar with the code I've used, take a look at B::Deparse; and, in case you need it, perlrun has more information on Command Switches.