Re: Mysterious net::telnet error (no answer, but 2 ideas)

in reply to Mysterious net::telnet error

A few thoughts, dmckee, worth exactly what you paid for them: {grin}

Google search on the error message turns up nothing. Darn.

I try to use cmd(); instead of print(). You've probably already perused it, but this is from Net::Telnet pod's examples:

use Net::Telnet ();

$host   =  new Net::Telnet (Timeout => 30, Prompt => '/[%#>] $/');
$prompt =  '_funkyPrompt_';

$host   -> open($hostname);
$host   -> login($username, $passwd);
$host   -> prompt("/$prompt\$/");
$host   -> cmd("set prompt = '$prompt'");
$host   -> cmd("...");
$host   -> close;
[download]

It doesn't appear very relevant, but here's what I could find in the pod about block size.

max_buffer_length - maximum size of input buffer

      $len = $obj->max_buffer_length;

      $prev = $obj->max_buffer_length($len);

  This method designates the maximum size of the input
  buffer.  An error is generated when a read causes the
  buffer to exceed this limit.  The default value is
  1,048,576 bytes (1MB).  The input buffer can grow much
  larger than the block size when you continuously read
  using getline() or waitfor() and the data stream
  contains no newlines or matching waitfor patterns.

  With no argument this method returns the current
  maximum buffer length set in the object.  With an
  argument it sets the maximum buffer length to $len and
  returns the previous value.
[download]

Maybe you've uncovered a glitch with that server, or a bug in Net::Telnet. If nothing else, the module author, Jay Rogers, invites comments or suggestions.

    cheers,
    Don
    stumbling toward Perl Adept
    (it's pronounced "why-bick")

Comment on Re: Mysterious net::telnet error (no answer, but 2 ideas) Select or Download Code

In Section Seekers of Perl Wisdom