expectperl-discuss

[Expectperl-discuss] Using Expect.pm with Net::Telnet

[James G. <jam...@gm...>]

I am experienced with Expect although I haven't used it for a few years and
am an advanced-novice with Perl.  I am looking for some examples of using
the Expect module with Net::Telnet as i am unable to glean inough
information from the perldoc Expect.  If someone could spare a sample script
or examples I would be much appreciative.

Thank You

Re: [Expectperl-discuss] Using Expect.pm with Net::Telnet

[Matt Z. <mzagrabe@d.umn.edu>]

On Mon, Aug 9, 2010 at 12:47 PM, James Gaynor <jam...@gm...> wrote:
> I am experienced with Expect although I haven't used it for a few years and
> am an advanced-novice with Perl.  I am looking for some examples of using
> the Expect module with Net::Telnet as i am unable to glean inough
> information from the perldoc Expect.  If someone could spare a sample script
> or examples I would be much appreciative.

FWIW, I used to use Expect with Net::Telnet because I was under the
impression that it would be thread safe, which it might have been.
However, there pattern matching issues that arose. For my work,
because I make heavy use of threads, I've migrated to Net::Telnet
solely. The pattern matching is a bit more kludgy than Expect, but it
gets the job done and has been very solid for me.

-matt zagrabelny

Re: [Expectperl-discuss] Using Expect.pm with Net::Telnet

[Bryan B. <br...@bu...>]

> I am experienced with Expect although I haven't used it for a few years
> and
> am an advanced-novice with Perl.  I am looking for some examples of using
> the Expect module with Net::Telnet as i am unable to glean inough
> information from the perldoc Expect.  If someone could spare a sample
> script
> or examples I would be much appreciative.
>
> Thank You
>

Here is my code:
-- snip -->
$t = new Net::Telnet (Timeout => $login_timeout,
  Prompt => "/". $user_prompt ."/",
  Input_log => $logs_dir ."/". $hostname .".log",
  Errmode => "return",
);

if ( !$t->open($hostname) ) {
  die $t->errmsg();
}
if ( !$t->login($username, $password) ) {
  die $t->errmsg();
}

$exp = Expect->exp_init($t);
<-- snip --

Then expect as normal.

Also, it has been my experience that this is thread safe.

Hope that helps.


Bryan Bueter
http://sourceforge.net/projects/rover/