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.
Perlpetually Indebted To PerlMonks
|