Net::Telnet

[Anders_35]

Anyone use Perl and Net::Telnet for scripting commands to ProCurves?
My Perl is a little rusty, and I've managed to get myself stuck at the very beginning...

What prompt to specify? I thought

Prompt => "/Username\:/"

would be enough, clearly it isn't ...

[Arunvijai_4]

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

Prompt should be shell prompt of a user.

-Arun

[Anders_35]

Sorry, my fault, original post was misleading.
It's the "login prompt" I can't seem to get right:

... waitfor(Match => '/Username: /')

[Anders_35]

Waiting for /.*:/ instead did the trick.

:)

[Anders_35]

.