Thank you daxim,
Look like this does not work.
use Net::SSH::Any qw();
my $ssh =
Net::SSH::Any->new( '172.20.251.20', user => 'root', password => 'r3
+v3nue' );
my @tmp = $ssh->capture('ls -lrt');
print " @tmp";
Output:
Use of uninitialized value $tmp[0] in join or string at test.pl line 7.
For the application, please be explained again. I try to give an simple example to easier:
- Using Perl to have a script to detect an even number from a number input from keyboar
- Create an application base on this script. This can be installed on Windowns. Then, when I wannna find I only need to run the app instead of executing perl "script.pl"
I am sorry, I cannot use exactly works to describe.