expectperl-discuss

[Expectperl-discuss] Holding perl expect until user ready ..

[sumncguy <sum...@ya...>]

After racking my brains for a few weeks, I found that

Expects interact will hold and continue / return based on user input. Im now
trying to accomplish that with the Perl Expect.pm module. It says ...
# $process->interact([$in_handle],[$escape sequence])

$child->interact();    

$child->interact(STDIN,'X');
$child->interact([STDIN],['X']);
$child->interact( ,'X'); obviously not
$child->interact('X'); here too ..

also tried all the above with dub quotes.
 .... must be missing something.

In expect

interact "X" return

Stops, give the user a router (for example) prompt back. When he/she hits X,
the expect script continues.

Thanks in advance.


-- 
View this message in context: http://www.nabble.com/Holding-perl-expect-until-user-ready-..-tp15282716p15282716.html
Sent from the Perl - Expectperl-Discuss mailing list archive at Nabble.com.

Re: [Expectperl-discuss] Holding perl expect until user ready ..

[Ken I. <fn...@ua...>]

On Mon, Feb 04, 2008 at 07:21:25PM -0800, sumncguy wrote:
> 
> After racking my brains for a few weeks, I found that
> 
> Expects interact will hold and continue / return based on user input. Im now
> trying to accomplish that with the Perl Expect.pm module. It says ...
> # $process->interact([$in_handle],[$escape sequence])
> 
> $child->interact();    
> 
> $child->interact(STDIN,'X');
> $child->interact([STDIN],['X']);
> $child->interact( ,'X'); obviously not
> $child->interact('X'); here too ..
> 
> also tried all the above with dub quotes.
>  .... must be missing something.
> 
> In expect
> 
> interact "X" return
> 
> Stops, give the user a router (for example) prompt back. When he/she hits X,
> the expect script continues.

You didn't hit upon the necessary syntax for passing a filehandle, e.g.:

    $ grep BAIL src/perl/radio-server.pl
    $exp->interact(\*STDIN, 'BAIL!');

The form \*STDIN is a reference to a typeglob, and is necessary to pass
the filehandle as an argument. 

Ken

-- 
Ken Irving, fn...@ua...
Water and Environmental Research Center
Institute of Northern Engineering
University of Alaska, Fairbanks

Re: [Expectperl-discuss] Holding perl expect until user ready ..

[sumncguy <sum...@ya...>]

I did search the forum first, found the snippet described but it still
doesnt work. 

Heres the execution on a Solaris box. 

~> mssh 10.10.10.10


Attempting to connect ... 10.10.10.10
Switching to enable...

somerouter#BAIL!

% Unknown command or computer name, or unable to find computer address
somerouter#exit
Connection to 10.10.10.10 closed.  

Here is the code Im using for this particular function. 

# $process->interact([$in_handle],[$escape sequence])
# $exp->interact(\*STDIN, 'BAIL!');
$child->interact(\*STDIN, 'BAIL!');
$child->send("show clock\n");
$child->expect(10,"#");    

I appreciate all the help !!

Chris






Ken Irving wrote:
> 
> On Mon, Feb 04, 2008 at 07:21:25PM -0800, sumncguy wrote:
>> 
>> After racking my brains for a few weeks, I found that
>> 
>> Expects interact will hold and continue / return based on user input. Im
>> now
>> trying to accomplish that with the Perl Expect.pm module. It says ...
>> # $process->interact([$in_handle],[$escape sequence])
>> 
>> $child->interact();    
>> 
>> $child->interact(STDIN,'X');
>> $child->interact([STDIN],['X']);
>> $child->interact( ,'X'); obviously not
>> $child->interact('X'); here too ..
>> 
>> also tried all the above with dub quotes.
>>  .... must be missing something.
>> 
>> In expect
>> 
>> interact "X" return
>> 
>> Stops, give the user a router (for example) prompt back. When he/she hits
>> X,
>> the expect script continues.
> 
> You didn't hit upon the necessary syntax for passing a filehandle, e.g.:
> 
>     $ grep BAIL src/perl/radio-server.pl
>     $exp->interact(\*STDIN, 'BAIL!');
> 
> The form \*STDIN is a reference to a typeglob, and is necessary to pass
> the filehandle as an argument. 
> 
> Ken
> 
> -- 
> Ken Irving, fn...@ua...
> Water and Environmental Research Center
> Institute of Northern Engineering
> University of Alaska, Fairbanks
> 
> -------------------------------------------------------------------------
> This SF.net email is sponsored by: Microsoft
> Defy all challenges. Microsoft(R) Visual Studio 2008.
> http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
> _______________________________________________
> Expectperl-discuss mailing list
> Exp...@li...
> https://lists.sourceforge.net/lists/listinfo/expectperl-discuss
> 
> 

-- 
View this message in context: http://www.nabble.com/Holding-perl-expect-until-user-ready-..-tp15282716p15306656.html
Sent from the Perl - Expectperl-Discuss mailing list archive at Nabble.com.