新足迹 › 论坛 › 兴趣爱好区 › IT与科技 › AI 相关 › perl脚本远程登陆设备,如何自动翻页?

精华好帖回顾
· 不同阶段的孩子应该做些什么？ (2015-6-2) fhjp01	· 找寻你的新世界——《The New World》观后 (2007-5-25) Gardener
· 也筑巢 - Willams Landing 更新于9月24日 (2010-9-20) zauberflote	· 煮夫手记三十七蛋炒饭与牛轧糖 (海量图解在52-53楼) (2011-11-8) amon54

查看: 1569|回复: 2

perl脚本远程登陆设备,如何自动翻页? [复制链接]

javed

草鞋族

发表于 2011-5-6 16:52 |显示全部楼层

此文章由 javed 原创或转贴，不代表本站立场和观点，版权归 oursteps.com.au 和作者 javed 所有！转贴必须注明作者、出处和本声明，并保持内容完整

有个很简单的一个perl脚本, 用Net::Telnet模块远程登陆到一些设备运行一些命令.

现在的问题是有些输出是需要按任意键来翻页的,而不是自动翻页的. 我又没有权限去把设备上的page break给disable掉...

比如当遇到" Press any key to continue (Q to quit)", 这个时候脚本就不会继续运行下去了,因为它在等正确的提示符出现($#>....).

请问在Net::Telnet里是如何处理这种翻页问题的? 多谢!

seaskyv

银靴族

发表于 2011-5-6 22:04 |显示全部楼层

此文章由 seaskyv 原创或转贴，不代表本站立场和观点，版权归 oursteps.com.au 和作者 seaskyv 所有！转贴必须注明作者、出处和本声明，并保持内容完整

in perl module NTE::Telnet, there are functions waitfor() and print(), it should work for you.

javed

草鞋族

发表于 2011-5-6 22:39 |显示全部楼层

此文章由 javed 原创或转贴，不代表本站立场和观点，版权归 oursteps.com.au 和作者 javed 所有！转贴必须注明作者、出处和本声明，并保持内容完整

原帖由 seaskyv 于 2011-5-6 22:04 发表
in perl module NTE::Telnet, there are functions waitfor() and print(), it should work for you.

问题是翻页情况是随机出现的,如果我用waitfor(/Press any key.../)的话,脚本就会一直等待"Press any key..."的字样出现, 如果正好不用翻页的话,脚本也一样会死在那里了. 这个该怎么解决呢?

返回列表

		自动登录	找回密码
密码			注册

精华好帖回顾

perl脚本远程登陆设备,如何自动翻页? [复制链接]

发表回复

浏览过的版块