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

精华好帖回顾
· 麻辣鲜香的诱惑，一碗朝思暮想的重庆小面 (2013-10-28) bluesummer	· ★10.04更新独家打折code【欧/美/澳/日/韩/泰40+个购物网详情】我们的口号是★败家无止境★一贴在手★购遍全球★ (2014-1-30) FAN2Y
· 花生老爹澳洲游散记------ 更新完毕 (2013-8-6) 花生	· 送给初来乍到墨尔本的筒子们！ (2007-7-31) tiger

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

发表回复

浏览过的版块