寫了個測試腳本:
#!perl
use strict ;
use warnings;
use Net::SSH::W32Perl;
my $host = '192.168.1.22';
my $ssh = new Net::SSH::W32Perl($host);
$ssh->login('admin', 'admin');
my ($out, $err, $exit) = $ssh->cmd('ls');
print $out;
運行報錯:
The getpwuid function is unimplemented at C:/Perl/site/lib/Net/SSH/Perl.pm line
110.