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

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
yyyy#

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
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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (8)
As of 2014-07-25 03:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (167 votes), past polls