Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re^4: Problem with Net::Telnet

by SDN (Initiate)
on Nov 26, 2012 at 03:42 UTC ( #1005544=note: print w/ replies, xml ) Need Help??

in reply to Re^3: Problem with Net::Telnet
in thread Problem with Net::Telnet

Yes, it's right at line 24 where it times out.

$telnet->waitfor('/$device# /i'); ##wait for prompt
From the output I can see it authenticate, but once I get to the prompt it times out. My output file looks something like this:
username: xxxx
password: zzzz

Now if I remove $device and just enter a specific name followed by the prompt(#), it prints out exactly what I want. It's just when I try to use a variable I run into this problem.
$telnet->waitfor('/yyyy# /i'); ##wait for prompt

This works. Maybe it has something to do with the prompt? I removed "." from the line and it still times out.

Comment on Re^4: Problem with Net::Telnet
Select or Download Code
Replies are listed 'Best First'.
Re^5: Problem with Net::Telnet
by frozenwithjoy (Curate) on Nov 26, 2012 at 05:37 UTC

    What if you use this:

    $telnet->waitfor("/$device# /i");   ##wait for prompt

    instead of this?:

    $telnet->waitfor('/$device# /i');   ##wait for prompt
Re^5: Problem with Net::Telnet
by aitap (Deacon) on Nov 26, 2012 at 17:21 UTC
    It looks like you forgot to chomp the line entered by user.
    It's also useful to protect arbitrary data in regexes by putting them between \Q and \E.
    Sorry if my advice was wrong.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1005544]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (5)
As of 2015-11-30 07:23 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (764 votes), past polls