perl telnet 怎样跟命令行交互呢？

perl telnet 怎样跟命令行交互呢？

1. cmd() , 这个就是发出指令了
2. waitfor() , 如果一个命令发出後还有後续的处理, 你就需要 waitfor() 一个你会在 shell 里看见的字串
3. print() , 最後, 如果你需要 "回答" shell 中的 "题问" 时, 你就可以用 print() 这方法 ( 是 Net::Telnet 的 print() 方法, 不是 perl 自己的 print 指令) 来回答问题了

$user = "abc" ;
$passwd = "123456";

$t->waitfor('/login: ?$/i');
$t->print($user);

$t->waitfor('/password: ?$/i');
$t->print($passwd);

Net::Telnet 有三个方法你要知道
1. cmd() , 这个就是发出指令了
2. waitfor() , 如果一个命令发出後还有後续的处理, 你就需要 waitfor() 一个你会在 shell 里看见的字串
3. print() , 最後, 如果你需要 "回答" shell 中的 "题问" 时, 你就可以用 print() 这方法 ( 是 Net::Telnet 的 print() 方法, 不是 perl 自己的 print 指令) 来回答问题了
$user = "abc" ;
$passwd = "123456";
$t->waitfor('/login: ?$/i');
$t->print($user);
$t->waitfor('/password: ?$/i');
$t->print($passwd);