Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: Is Net::SSH::Perl still supported? Can I install it on Centos 7?

by cbeckley (Curate)
on Mar 10, 2017 at 03:20 UTC ( #1184130=note: print w/replies, xml ) Need Help??


in reply to Is Net::SSH::Perl still supported? Can I install it on Centos 7?

I wasn't sure whether to put this post here, or in Meditations. On one hand this is a continuation of the original question, but on the other hand this is an RFC on how to use Net::OpenSSH.

This is an excerpt from my module that encapsulates my use of Net::OpenSSH:

sub ops_do_ssh_shell { my ($cmd) = @_; my $ssh; my $key_path = $ENV{HOME} . '/.ssh/id_rsa'; if ( ops_cmd_status($cmd) ) { $ssh = Net::OpenSSH->new($cmd->{host}, user => $cmd->{user}, key +_path => $key_path); if ( $ssh->error ) { $cmd->{status} = 'failure'; ($cmd->{ssh_retcode}, $cmd->{ssh_retmsg}) = (0 + $ssh->error, + '' . $ssh->error); } } if ( ops_cmd_status($cmd) ) { ($cmd->{output}, $cmd->{std_err}) = $ssh->capture2($cmd->{comman +d}); if ( $ssh->error ) { $cmd->{status} = 'failure'; ($cmd->{child_retcode}, $cmd->{child_retmsg}) = (0 + $ssh->er +ror, '' . $ssh->error); } chomp $cmd->{output}; chomp $cmd->{std_err}; } return $cmd; } sub ops_cmd_status { my ($cmd) = @_; defined $cmd->{status} or $cmd->{status} = 'success'; $cmd->{status} eq 'success' ? 1 : 0; }

And this is how it would be invoked:

my $cmd = { user => 'oracle', host => 'randomdbserver.randomdomain.com', command => '/randompath/random_oracle_script' }; my $status = ops_do_ssh_shell($cmd);

Any insight or corrections of oversight would be greatly appreciated.

Thanks,
cbeckley

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1184130]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (4)
As of 2020-05-28 21:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    If programming languages were movie genres, Perl would be:















    Results (166 votes). Check out past polls.

    Notices?