expectperl-discuss

[Expectperl-discuss] 'interact -o -re <pattern> {...} ' in expectperl?

[Albrecht B. <al...@nm...>]

Hello,

is there a similar mechnism in expectperl for using the following expect 
code:

--- expect code snippet ---
interact {
    -o
    -re "..." { send "..."}
}
----

The Expect.pm-documentation for $object->interact( "\*FILEHANDLE, 
$escape_sequence") states "Interaction ceases when $escape_sequence is 
read from FILEHANDLE, not $object. $object's listen group will consist 
solely of \*FILEHANDLE for the duration of the interaction."

So, my question in other words: is there any possibility to cease 
interaction based on a (regex) pattern, read from $object? Any 
workaround, if not possible using interact()?

Thanks in advance,
Albrecht

Re: [Expectperl-discuss] 'interact -o -re <pattern> {...} ' in expectperl?

[Roland G. <rgi...@cp...>]

Well, not out of the box and I'm not sure if it works correctly, that
part (interact()) never was used in production and thus isn't really
tested. I cannot remember to have received feedback from somebody who
actually is using interact().

It should be possible by using interconnect(). You have to set up the
objects to interconnect on your own, using set_group() and set_seq()
and then calling interconnect(). Try using the source code for
interact() as an example and work from there...


Servus aus Wien!

Roland

On 6/6/07, Albrecht Bischoff <al...@nm...> wrote:
> Hello,
>
> is there a similar mechnism in expectperl for using the following expect
> code:
>
> --- expect code snippet ---
> interact {
>     -o
>     -re "..." { send "..."}
> }
> ----
>
> The Expect.pm-documentation for $object->interact( "\*FILEHANDLE,
> $escape_sequence") states "Interaction ceases when $escape_sequence is
> read from FILEHANDLE, not $object. $object's listen group will consist
> solely of \*FILEHANDLE for the duration of the interaction."
>
> So, my question in other words: is there any possibility to cease
> interaction based on a (regex) pattern, read from $object? Any
> workaround, if not possible using interact()?
>
> Thanks in advance,
> Albrecht
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by DB2 Express
> Download DB2 Express C - the FREE version of DB2 express and take
> control of your XML. No limits. Just data. Click to get it now.
> http://sourceforge.net/powerbar/db2/
> _______________________________________________
> Expectperl-discuss mailing list
> Exp...@li...
> https://lists.sourceforge.net/lists/listinfo/expectperl-discuss
>

Re: [Expectperl-discuss] 'interact -o -re <pattern> {...} ' in expectperl?

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

On Fri, Jun 08, 2007 at 10:41:33AM +0200, Roland Giersig wrote:
> Well, not out of the box and I'm not sure if it works correctly, that
> part (interact()) never was used in production and thus isn't really
> tested. I cannot remember to have received feedback from somebody who
> actually is using interact().

I'm using interact, but have it looking for a string, not a regex
as I think the OP was looking for:

    $exp->interact(\*STDIN, 'BAIL!');

Ken

> It should be possible by using interconnect(). You have to set up the
> objects to interconnect on your own, using set_group() and set_seq()
> and then calling interconnect(). Try using the source code for
> interact() as an example and work from there...
> 
> 
> Servus aus Wien!
> 
> Roland
> 
> On 6/6/07, Albrecht Bischoff <al...@nm...> wrote:
> > Hello,
> >
> > is there a similar mechnism in expectperl for using the following expect
> > code:
> >
> > --- expect code snippet ---
> > interact {
> >     -o
> >     -re "..." { send "..."}
> > }
> > ----
> >
> > The Expect.pm-documentation for $object->interact( "\*FILEHANDLE,
> > $escape_sequence") states "Interaction ceases when $escape_sequence is
> > read from FILEHANDLE, not $object. $object's listen group will consist
> > solely of \*FILEHANDLE for the duration of the interaction."
> >
> > So, my question in other words: is there any possibility to cease
> > interaction based on a (regex) pattern, read from $object? Any
> > workaround, if not possible using interact()?
> >
> > Thanks in advance,
> > Albrecht
> >
> > -------------------------------------------------------------------------
> > This SF.net email is sponsored by DB2 Express
> > Download DB2 Express C - the FREE version of DB2 express and take
> > control of your XML. No limits. Just data. Click to get it now.
> > http://sourceforge.net/powerbar/db2/
> > _______________________________________________
> > Expectperl-discuss mailing list
> > Exp...@li...
> > https://lists.sourceforge.net/lists/listinfo/expectperl-discuss
> >
> 
> -------------------------------------------------------------------------
> This SF.net email is sponsored by DB2 Express
> Download DB2 Express C - the FREE version of DB2 express and take
> control of your XML. No limits. Just data. Click to get it now.
> http://sourceforge.net/powerbar/db2/
> _______________________________________________
> Expectperl-discuss mailing list
> Exp...@li...
> https://lists.sourceforge.net/lists/listinfo/expectperl-discuss

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