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

精华好帖回顾
· 梦幻泡菜全攻略! (2005-7-14) 飞龙	· 2018秋日本行鸟羽伊势松阪胜浦那智熊野古道高野山奈良大阪京都全文完 (2018-11-4) violinlearner
· 参加活动那一只单飞的鸟儿 (2011-11-10) 明河素月	· NSW州政府的Housing Delivery Program规划细节披露及讨论 (2013-3-18) Martin_2F

查看: 1178|回复: 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脚本远程登陆设备,如何自动翻页? [复制链接]

发表回复