Re: Capturing SSH output in an array.

[perl514]

Hi Salva !!!

Pity I can vote this only once. I installed your new updated module and it just works now !!!. Here is the script

#!/usr/bin/perl

use Modern::Perl;
use Net::SSH::Any;

my $hostname = '192.168.247.128';
my $username = 'perl514';
my $password = 'redhat';
my $cmd = 'ls -l';

if (my $ssh = Net::SSH::Any->new($hostname, user => $username, passwor
+d => $password))
    {
    say " I am connected to $hostname!!!";
    my @out = $ssh->capture($cmd);
    say "The files and directories of $username on $hostname are given
+ below";
    say "@out";
    }
else
{
    say "whee...something wrong here"
}

Aand here is the output !!

 I am connected to 192.168.247.128!!!
The files and directories of perl514 on 192.168.247.128 are given belo
+w
total 16
 drwxrwxr-x. 2 perl514 perl514 4096 Nov 14 14:52 perlscripts
 drwxrwxr-x. 2 perl514 perl514 4096 Nov 14 14:52 test1
 drwxrwxr-x. 2 perl514 perl514 4096 Nov 14 14:52 test2
 drwxrwxr-x. 2 perl514 perl514 4096 Nov 14 14:52 test3

You rock !!

Thing is, it took about 12 seconds for the script to ssh into the Centos VM Guest OS, but man I am glad this works !!...Is there a way to save the ssh keys and circumvate the password requirement? If the Net::SSH2 method will work (I still havent tried it) to add the ssh keys, then I'll try that out. But yeah, this works !! O yeah, by the way, I finally got rid of Windows 7 on my personal laptop....will try on that one too !! Its running Ubuntu 12.04 now, so itching to try out stuff on it :) So for work, I will be on Win 7 (And to manage the storage environment it will be Win 2003: Not my choice), but on personal laptop, its Linux all the way now.