Net::Telnet使用小记

use strict;
use warnings;
use Net::Telnet;

my $tnet=new Net::Telnet('Host'=>'127.0.0.1','Timeout'=>3,'Dump_Log'=>'test.log');
$tnet->waitfor('Match'=>"/login:/");
$tnet->print("fibbery");
$tnet->waitfor('Match'=>"/password:/");
$tnet->print("password");
$tnet->waitfor('/\>/');
$tnet->print("dir");
$tnet->errmode("return");
while(my $data=$tnet->get('Timeout'=>9999999))#设置一个合适的超时，不至于使程序没运行结束而终止等待
{
    print($data);
    if($data=~/fibbery\>/)#此处判断何时程序运行结束
    {
        last;
    }
}
$tnet->print("exit");
$tnet->close();