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

精华好帖回顾
· 邱岳峰 - 最伟大的配音大师及其代表作《简爱》电影配音精选 (2008-10-26) zmzhu	· 小白鼠记录所用过的L'Occitane欧舒丹产品 (2011-4-24) jj61184
· 面子产品大交流之不成体系篇 (2007-3-25) 苏苏	· 爸爸菜谱 - T-bone Steak with Black Pepper Sauce (2008-5-13) patrickzhu

查看: 1536|回复: 2

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

javed

草鞋族

发表于 2011-5-6 17: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 23: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 23: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脚本远程登陆设备,如何自动翻页? [复制链接]

发表回复