sparkyichi has asked for the wisdom of the Perl Monks concerning the following question:
#!/usr/bin/perl -w use Net::SSH::Perl; use strict; my (%params, $ssherr, $sshexit); $params{'protocol'} = '2'; $params{'port'} = '22'; $params{'debug'} = 'true'; $params{'interactive'} = 'true'; $params{'compression'} = 'false'; $params{'identity_files'} = [$ENV{HOME}."/.ssh/id_rsa"]; $params{'options'} = ["RSAAuthentication yes", "PasswordAuthentication no", "ConnectTimeout 10", "BatchMode no", "FallBackToRsh no", "RhostsAuthentication no", "RhostsRSAAuthentication no", "KeepAlive yes"]; my $sshconn = Net::SSH::Perl->new("secsscsr01", %params); $sshconn->login('user', 'password'); my ($out1, $err1, $exit2) = $sshconn->cmd("ls -l"); if ($out1){print "Output:\n$_\n\n";} if ($err1){print "Error:\n$_\n\n";} print "Exit Code:\n$exit2\n\n";
comops:~/tkl # perl -w ./sshtkl.pl comops: Reading configuration data /root/.ssh/config comops: Reading configuration data /etc/ssh_config comops: Allocated local port 1023. comops: Connecting to secsscsr01, port 22. comops: Remote protocol version 2.0, remote software version OpenSSH_3 +.6.1p2 comops: Net::SSH::Perl Version 1.25, protocol version 2.0. comops: No compat match: OpenSSH_3.6.1p2. comops: Connection established. comops: Sent key-exchange init (KEXINIT), wait response. comops: Algorithms, c->s: 3des-cbc hmac-sha1 zlib comops: Algorithms, s->c: 3des-cbc hmac-sha1 zlib comops: Entering Diffie-Hellman Group 1 key exchange. comops: Sent DH public key, waiting for reply. Connection closed by remote host. at /usr/lib/perl5/site_perl/5.8.3/Ne +t/SSH/Perl/Kex/DH1.pm line 41
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: SSH2 Connection issue with Net::SSH:Perl
by jasonk (Parson) on Jul 21, 2005 at 19:01 UTC | |
by sparkyichi (Deacon) on Jul 21, 2005 at 19:16 UTC | |
|
Re: SSH2 Connection issue with Net::SSH:Perl
by schoover (Initiate) on Sep 27, 2005 at 13:17 UTC | |
by sparkyichi (Deacon) on Jan 23, 2006 at 17:11 UTC |