- 论坛徽章:
- 0
|
看哪位大神能解决这个问题:
our $ssh=Net::OpenSSH->new($host,timeout=>10,user=>$usrname,password=>$password,master_opts => [-o => "StrictHostKeyChecking=no"]);
$ssh->capture2("cd /root"); # 登陆到远程机器上
#需要在远程机器上运行$cmd ='ssh root@server',要输入密码。所以就用了Expect模块。
my ($pty,$pid)=$ssh->open2pty($cmd) or die "Can't open2pty";
#my $exp= Expect->spawn($cmd);
die "ssh\n" if $ssh->error;
my $exp =Expect->init($pty) or die" Cant init $ssh\n";
# $exp->send($cmd);
$exp->expect(10,"pssword"=>sub {my $exp =shift;$exp->send("password\n");}); #这一步出错。
|
|