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

精华好帖回顾
· 困难，梦想 & 鼓励— 自己写的中英文诗；以及对中西文化的一点看法 (2007-1-31) purpleme	· 难忘一刻 – 受洗日 (2005-2-3) ThePlaceToBe
· 浓香的记忆------当风流寡妇遇到卤汁豆腐干 (2011-9-24) 明河素月	· 回馈足迹-终于在公司搬家前找到了另一份工作 (2010-2-4) icelemontea

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

发表回复

浏览过的版块