Net::OpenSSH pass options to ssh

zn553 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Net::OpenSSH pass options to ssh by salva (Canon) on Mar 18, 2019 at 15:08 UTC
`$ssh = Net::OpenSSH->new(..., master_opts => ['-vvv', '-oPort=24', '-oConne +ctTimeout=60']);` [download] or... `$ssh = Net::OpenSSH->new(..., port => 24, master_opts => ['-vvv', '-oConnectTimeout=60' +]);` [download]	[reply] [d/l] [select]
Re: Net::OpenSSH pass options to ssh by thanos1983 (Parson) on Mar 18, 2019 at 14:48 UTC
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";` [download] From the module documentation Net::OpenSSH/Net::OpenSSH methods: `($in, $out, $err, $pid) = $ssh->open_ex(\%opts, @cmd)` [download] Hope this helps, BR. Seeking for Perl wisdom...on the process of learning...not there...yet!	[reply] [d/l] [select]
Re^2: Net::OpenSSH pass options to ssh by zn553 (Initiate) on Mar 18, 2019 at 15:26 UTC
Hello my question is more related to pass several options to SSH using `default_ssh_opts`	[reply] [d/l]
Re^3: Net::OpenSSH pass options to ssh by salva (Canon) on Mar 19, 2019 at 12:00 UTC
`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.	[reply] [d/l] [select]
Re^3: Net::OpenSSH pass options to ssh by thanos1983 (Parson) on Mar 18, 2019 at 15:49 UTC
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 Seeking for Perl wisdom...on the process of learning...not there...yet!	[reply] [d/l] [select]
Re: Net::OpenSSH pass options to ssh by kcott (Archbishop) on Mar 22, 2019 at 08:51 UTC
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, ...` [download] 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']));` [download] 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` [download] 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. — Ken	[reply] [d/l] [select]