use Net::Telnet ();
$t = new Net::Telnet (Timeout => 10,
                      Prompt => '/bash\$ $/');
$t->open("sparky");
$t->login($username, $passwd);
@lines = $t->cmd("who");
print @lines;
[download]

The second is to grab the raw input from the telnet stream (not recommended) that has already arrived:

$ref = $obj->buffer;
[download]

The third is to go and grab new raw data on its way in:

$data = $obj->get([Binmode    => $mode,]
                  [Errmode    => $errmode,]
                  [Telnetmode => $mode,]
                  [Timeout    => $secs,]);
[download]

The getline and getlines methods are probably much easier to deal with than get, and work on the same principles.

I highly recommend reading the perldoc info on Net::Telnet very thoroughly, even though it is rather tedious. I learn something every time I read it. I also recommend using the debugging/logging methods for a while. I have found them to be invaluable when trying to figure out why my patterns are(n't) matching some weird binary input. (The buffer_empty method is your friend.)

Hope that helps!

--J

The problem is that neither solution works.
I've tried all of them already.
That's why I asked here.
Is there anything else I can try?
I guess the problem is that the switch doesn't act like
the regular operating system
.

Perhaps if you showed us your current script and explained what it was doing wrong we could help better.


___________
Eric Hodges