Net::Telnet question?

[devilpanther]

I'm trying to use the Net::Telnet but I have a small problem.

I connect the server and send a command.
The server receives the command and sends me the output.
The thing is, because the output is not complete but has a: --MORE-- at the bottom is makes the
@lines = $telnet->cmd("show port physical 5/3"); to timeout...
(using a packet sniffer I can see that the server sends data back to the client)

How can I avoid this kind of problem?

#!/usr/bin/perl

use Net::Telnet;

$telnet = Net::Telnet->new(Prompt => '', Timeout => 10) or die "unable to init";

$telnet->open("192.169.1.1") or die "unable to connect server";
$telnet->login("username", "password") or die "unable to login";
[b][COLOR=red]@lines = $telnet->cmd("show port physical 5/3");[/color]
[COLOR=green]# this line never returns[/color][COLOR=green]a value but simply timeouts[/color][/b]
print @lines;

Thank you.

 

[TrojanWarBlade]

Have you tried adding a linefeed to the command?
e.g.

@lines = $telnet->cmd("show port physical 5/3\n");

Trojan.

 

[devilpanther]

I don't really see how that helps... the cmd already does it by itself, no?

Is it possible that the Prompt => '' needed to be adjusted? to detect --MORE-- ?

 

[TrojanWarBlade]

I guess that's possible.


Trojan.

 

[devilpanther]

Can you please explain to me how the Prompt=>'' works? what am I matching?

 

[TrojanWarBlade]

It's been a long time since I've used Net::Telnet so I'll leave it to someone with more current experience to answer your question.
Good luck.


Trojan.