Re^3: Problem with Net::Telnet

Can you determine at which pattern match it is timing out based on the line # or printing debug statements to STDOUT between telnet calls?

Comment on Re^3: Problem with Net::Telnet

Replies are listed 'Best First'.
Re^4: Problem with Net::Telnet by SDN (Initiate) on Nov 26, 2012 at 03:42 UTC
Yes, it's right at line 24 where it times out. `$telnet->waitfor('/$device# /i'); ##wait for prompt` [download] 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` [download] This works. Maybe it has something to do with the prompt? I removed "." from the line and it still times out.	[reply] [d/l] [select]
Re^5: Problem with Net::Telnet by frozenwithjoy (Priest) 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`	[reply] [d/l] [select]
Re^5: Problem with Net::Telnet by aitap (Curate) 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.	[reply] [d/l] [select]