求助，关于Net:Telnet模块

xfind

第一次用这个模块，我测试连到一个主机上，连接成功后执行
$t->waitfor('/>  $/i');
@result = $t->cmd($cmd_str);
print @result;
完全正确

但当我换了一个主机，而这个主机是没有提示符的（就象你VI里新换了一行一样，直接输入命令就可以），上面那个主机提示符是>，但这个没有，我想写
$t->waitfor('/  $/i');
@result = $t->cmd($cmd_str);
print @result;

但报pattern match timed-out 在 $t->waitfor('/  $/i');这一行，我于是直接
@result = $t->cmd($cmd_str);
print @result;

但报command timed-out 在 @result = $t->cmd($cmd_str);这一行

请教大家，没提示符我咋办？

xfind

我刚才又测试了一下，我
$t->print($cmd_str);
while(my $tmp=$t->getline()){
        print $tmp;
}

可以打印出命令结果，但如果我
$t->print($cmd_str);
my @result=();
while(my $tmp=$t->getline()){
        print $tmp;
                push @result,$tmp;
}

报read timed-out 在 push @result,$tmp; 行

请教这又是为什么，另外哪有telnet 模块的中文介绍谁给个呀，英语的一下看不明白，谢谢了先，急盼

apile

Net::Telnet 你可以看看他的Source Code...
就可以知道他在干嘛了..基本上他是
执行--等待提示符--执行下一个command--等待提示符..
所以如果没有提示符的话...
command执行完後...Net::Telnet并不晓得command已经执行完了..
所以 Timeout了.....

xfind

原帖由 apile 于 2006-12-8 11:20 发表
所以如果没有提示符的话...
command执行完後...Net::Telnet并不晓得comman ...

请教那我应该怎么处理呢

apile

可以改用socket..或看是不是可以把auto_flush打开...强迫清空buffer....
只是没有提示符的..就蛮怪的...