perl telnet 发送条指令超时问题

devin_jia 2011-03-28 03:40:25
我是向交换机发送多条指令.
第一个指令返回的数据比较长,要分屏显示.为什么总会有
NETELNETD_FAILD
执行命令DSP CFG:;超时(30秒)【网元:2029873079】。


指令超时是什么意思?怎么解决?


Perl code
for(my $u=3;$u<$count_cmdd;$u++)
{
print "array_cmdd: $array_cmdd[$u]\n";

my $timeoutt = 30; # seconds

eval {

local $SIG{ALRM} =

sub { die "Sorry, timed out. Please try again\n" };

alarm $timeoutt;

execCmd($array_cmdd[$u],$u,$t,$restypeid);#我的处理子程序


alarm 0;

};

$t->buffer_empty;

}



sub execCmd{

my ($cmd,$u,$mythread,$typeid) = @_;
my $pre_match_lines;
my $match;

print "execmd $cmd ,$u,\n";

TXT("execmd $cmd,$u\n");



my @linelist = $mythread->cmd("execmd $cmd");


while(my $data=$mythread->get('Timeout'=>10))#设置一个合适的超时,不至于使程序没运行结束而终止等待

{
print($data);

TXT("$data");

if($data=~/reports in total/ and $u eq 3)#此处判断何时程序运行结束
{
return 1;
}
if($data=~/--- END/ and $u > 3)
{
return 1;
}
else
{
return 0;
}



}

}
...全文
88 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
devin_jia 2011-03-28
  • 打赏
  • 举报
回复
chengjie1327791 2011-03-28
  • 打赏
  • 举报
回复
你在telnet模块中捕捉这行记录Press CTRL+C to break, other key to continue...,以及你同时也应该捕捉命令行提示符,当捕捉到上面的记录后,你应该向网络设备发送一个任意字符,以使命令继续运行,如果捕捉到命令行提示符,你该执行下一跳命令,或者退出telnet,按照你实际的逻辑进行处理。

37,718

社区成员

发帖
与我相关
我的任务
社区描述
JavaScript,VBScript,AngleScript,ActionScript,Shell,Perl,Ruby,Lua,Tcl,Scala,MaxScript 等脚本语言交流。
社区管理员
  • 脚本语言(Perl/Python)社区
  • IT.BOB
加入社区
  • 近7日
  • 近30日
  • 至今

试试用AI创作助手写篇文章吧