免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 2015 | 回复: 8
打印 上一主题 下一主题

Net::OpenSSH 与Expect混合使用的问题 [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2013-01-09 12:29 |只看该作者 |倒序浏览

看哪位大神能解决这个问题:


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");});  #这一步出错。

论坛徽章:
0
2 [报告]
发表于 2013-01-09 12:47 |只看该作者
    ,一个人都不会????

论坛徽章:
42
19周年集字徽章-周
日期:2019-10-14 14:35:31平安夜徽章
日期:2015-12-26 00:06:30数据库技术版块每日发帖之星
日期:2015-12-01 06:20:002015亚冠之首尔
日期:2015-11-04 22:25:43IT运维版块每日发帖之星
日期:2015-08-17 06:20:00寅虎
日期:2014-06-04 16:25:27狮子座
日期:2014-05-12 11:00:00辰龙
日期:2013-12-20 17:07:19射手座
日期:2013-10-24 21:01:23CU十二周年纪念徽章
日期:2013-10-24 15:41:34IT运维版块每日发帖之星
日期:2016-01-27 06:20:0015-16赛季CBA联赛之新疆
日期:2016-06-07 14:10:01
3 [报告]
发表于 2013-01-09 13:03 |只看该作者
你的用法错误.
net:penssh和expect任意用一个就能解决
用net:penssh自己的waitfor方法(不确定具体的名字,net::telnet的是print和waitfor)
只有第一次的ssh才需要用到虚拟终端
第二次的跳转 不过是普通的交互命令而已

论坛徽章:
1
2015年辞旧岁徽章
日期:2015-03-03 16:54:15
4 [报告]
发表于 2013-01-09 13:08 |只看该作者
出错也不说出了什么错,什么系统什么版本也没说
Expect相关问题就不是太值得花时间的东西,需要jumping server的我一般就只用Expect了

论坛徽章:
0
5 [报告]
发表于 2013-01-09 13:12 |只看该作者
回复 3# laputa73


    第二次的普通交互怎么实现呢??我还是不太明白.第一次的登陆远程机 用Net::Openssh,这个容易,关键是第二的登陆:在这个远程机上再 登陆到另外的远程机器 怎么实现???

论坛徽章:
0
6 [报告]
发表于 2013-01-09 13:15 |只看该作者
我就是要实现两次自动登陆, 在机器A上,第一次登陆到B上,然后在B上,登陆到C上运行命令. 我现在想写一个脚本在A上运行实现上面的功能.   回复 4# py


   

论坛徽章:
42
19周年集字徽章-周
日期:2019-10-14 14:35:31平安夜徽章
日期:2015-12-26 00:06:30数据库技术版块每日发帖之星
日期:2015-12-01 06:20:002015亚冠之首尔
日期:2015-11-04 22:25:43IT运维版块每日发帖之星
日期:2015-08-17 06:20:00寅虎
日期:2014-06-04 16:25:27狮子座
日期:2014-05-12 11:00:00辰龙
日期:2013-12-20 17:07:19射手座
日期:2013-10-24 21:01:23CU十二周年纪念徽章
日期:2013-10-24 15:41:34IT运维版块每日发帖之星
日期:2016-01-27 06:20:0015-16赛季CBA联赛之新疆
日期:2016-06-07 14:10:01
7 [报告]
发表于 2013-01-09 16:15 |只看该作者
给你个expect的例子就明白了
expect只是在本机创建了一个伪终端,里面的操作就和你手工执行是一样的
  1. my $exp = Expect->spawn("ssh -l $user $ip")
  2.     or die "Cannot spawn unreliable process $!\n";
  3.   $exp->expect($timeout,'assword:');
  4.   $exp->send("$pass\n");
  5.   $exp->expect($timeout,'\$');
  6.   $exp->send("ssh -l $user2 $ip2\n");
  7.     $exp->expect($timeout,'assword:');
  8.   $exp->send("$pass2\n");
  9.   $exp->expect($timeout,'\$');
复制代码

论坛徽章:
1
狮子座
日期:2013-12-16 16:09:24
8 [报告]
发表于 2013-01-09 16:20 |只看该作者
建议只用expect

论坛徽章:
0
9 [报告]
发表于 2013-01-09 16:29 |只看该作者
恩,谢谢楼上的两位了.我后来只用expect来实现的。
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP