Re: problem in perl telnet module

[BrentDax]

It would really help if we knew exactly when it's hanging--is it during open? login? cmd?

Have you tried using input_log, as the documentation recommends? If it's hanging during cmd, that could indicate that the Prompt regex is incorrect; input_log may help you debug that.

In the mean time, I'd like to point out a couple other problems:

• You aren't bringing the module in the way it's intended to be. Remove the BEGIN block and the require, and replace it with a simple use Net::Telnet;.
• You don't need new twice in new Net::­Telne­t->ne­w--either new Net::Telnet or Net::Telnet->new is fine. Use whichever you think looks better. (Frankly, I'm not sure why the two-new version even works.)

[Fletch]

$ perl -MO=Deparse,-p,-q -e '$telnet = new Net::Telnet->new( Timeout=>
+20,Prompt => "/[\$%#>] $/");'
($telnet = 'Net::Telnet'->new->new('Timeout', 20, 'Prompt', ('/[$%#>] 
+' . $/)));

Net::Telnet's new has the called-with-ref-use-its-class incantation (way back in IO::Handle::new). But you're right, it's unnecessary.