telnet 交互的问题

Neo98

远程主机有一程序验证  需输入密码 提示信息为中文
waitfor始终无法获取 那位处理过类似问题给指点下

Neo98

程序中prompt 如何改变?

兰花仙子

Expect?

Neo98

Net::Telnet  模块

兰花仙子

prompt如何改变是啥意思？

兰花仙子

or reference this thread:

http://bbs.chinaunix.net/viewthread.php?tid=798130

Neo98

偶是用telnet模块实现的 看了下cpan文档  还是用不好
$t->prompt("/\$/");改变prompt好象没效
多谢~`  先看看

[ 本帖最后由 Neo98 于 2009-12-13 18:22 编辑 ]

Neo98

搞定了! haha~~
$t = new Net::Telnet (Timeout => 5,Dump_Log =>'aa.txt');
$t->open("xx.xx.xx.xx"||die "can't open the telnet connection";;
$t->waitfor('/login:/');
$t->print('xxx');
$t->waitfor('/.*(assword/');
$t->print('xxx');
$t->waitfor('/请录入口令:/');
$t->print('xxx');
$t->waitfor('/\$/');