Net::Telnet使用小记

最新推荐文章于 2019-07-23 17:34:53 发布

fibbery

最新推荐文章于 2019-07-23 17:34:53 发布

阅读量1.4k

点赞数

分类专栏： Perl

本文链接：https://blog.csdn.net/fibbery/article/details/7335281

版权

Perl 专栏收录该内容

7 篇文章 0 订阅

订阅专栏

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();