[问题] telnet.pm

Python/PHP/Perl 开发与设计
回复
zha0gang
帖子: 29
注册时间: 2006-05-11 8:36
送出感谢: 0
接收感谢: 0

[问题] telnet.pm

#1

帖子 zha0gang » 2007-07-29 19:33

各位,
兄弟想写一个自动登录主机杀进程的脚本, 打算用 perl 的 telnet.pm , 由于管理权限很严格, 只给了一个菜单, login 进去就是一个菜单, 我用 $t->print("1"); 这样可以选择菜单, 然后再输入 要杀掉的 id, 这时候系统会判断, 这个id 是否登录, 是否合法, 然后确认. 比如下面所示

Please Enter Login ID: asddf [回车]
显示
Login ID 'asddf' does NOT exist on LEXICON1
Please verify the login id with the user and try again.
Press <Enter> to continue...
这就是不存在的情况,

Please Enter Login ID: bingu [回车]
显示
User bingu not login
Press <Enter> to continue...
这是该帐号没有登录

Please Enter Login ID: bingu [回车]
显示
Are you sure to kill bingu Process :
如果已经登录了, 系统就会问 是否要杀掉.

我是用
$t->waitfor('/Please Enter.*$/');
$t->print("$killuuid");
这样输入想杀掉的用户ID,
但是返回的信息怎么得到呢, 再用 waitfor 不好使了, 没法做判断了.
请高手支点
回复

回到 “Python/Php/Perl”