comment on

Thanks Corion, It works fine on Linux platform, and not work on Windowns for SSH But everytime I issue $ssh->capture($cmd), I need to input password again. my code:

use strict;
use warnings;
use Net::SSH::Any qw();
my $ssh =
  Net::SSH::Any->new( '172.21.71.197', user => 'root', password => 'r3
+v3nue' );
my @tmp = $ssh->capture('ls -lrt');

print "@tmp \n";
print "====================\n";
@tmp = $ssh->capture('date');
foreach (@tmp) {
    if ( $_ =~ /(\d+:\d+:\d+)/ ) {
        print "Time is $1";
        last;
    }
}
[download]

Output:

root@svr1087# perl test.pl
root@172.21.71.197's password: 
total 88
 -r-xr-xr-x. 1 root root   332 Apr 22  2015 patchC3iptablesCustom.sh
 -r-xr-xr-x. 1 root root   508 Apr 23  2015 jre1.6.sh
 dr-xr-xr-x. 2 root root  4096 Nov  8  2018 Adax
 -rw-r--r--. 1 root root  1807 Jul 19 17:55 preinstall.log
 -rw-r--r--. 1 root root  6782 Jul 19 17:58 install.log.syslog
 -rw-r--r--. 1 root root 25057 Jul 19 18:00 install.log
 -rw-------. 1 root root 10302 Jul 19 18:00 anaconda-ks.cfg
 -rw-r--r--. 1 root root 14788 Jul 19 18:03 postinstall.log
 -rw-r--r--  1 root root     4 Jul 22 14:11 hung_task_timeout_secs~
 
====================
root@172.21.71.197's password: 
Time is 05:06:39#                                                     
+                                                                     
+                                                                     
+   
root@svr1087#
[download]

In reply to Re^4: [Help]Build a tool/application using Perl by tctoa
in thread [Help]Build a tool/application using Perl by tctoa

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Problems? Is your data what you think it is?
	PerlMonks