我有一个Web界面和登录机械化,通过检查用户是否可以在服务器上登录或不登录来完成身份验证。 use Net::SSH2;
#Get $un and $pw as POST data.
my $ssh2 = Net::SSH2->new();
$ssh2->connect('localhost') or die $!;
if($ssh2->auth_password($un, $pw)
#!/usr/bin/perl -w
use strict;
use warnings;
use Net::SSH2;
#--
my $server='x.x.x.x';
my $user='xxxx';
my $passwd='xxxx';
#--
my $ssh2 = Net::SSH2->new();
print "Connecting to $server...\n