expectperl-discuss — Discussions about Perl modules Expect.pm, IO::Tty and IO::Stty

[Expectperl-discuss] TIMEOUT expect not setting exp_before

[Adrian P. <a.p...@dn...>]

Goood day,

First a thanks to all those who have had a hand in Expect.

I've just started using Expect for interaction with passwd and I
noticed if $object->expect times out then exp_before is not set as
documented in the manual. A patch against 1.08 follows which seems to
fix this.

Sincerely,

Adrian Phillips

-- 
Your mouse has moved.
Windows NT must be restarted for the change to take effect.
Reboot now?  [OK]


*** Expect.pm~  Wed Sep 20 11:56:41 2000
--- Expect.pm   Wed Nov 15 12:38:06 2000
***************
*** 733,738 ****
--- 733,739 ----
      $err = "1:TIMEOUT";
      foreach my $pat (@_) {
        foreach my $exp (@{$pat->[0]}) {
+       ${*$exp}{exp_Before} = $exp->clear_accum();
        next if not defined $exp->fileno(); # skip already closed
        ${*$exp}{exp_Error} = $err unless ${*$exp}{exp_Error};
        }

[Expectperl-discuss] Re: Expect.pm

[Roland G. <Rol...@al...>]

"Hemming, Cliff" wrote:
> 
> So how would I specify 'EOF' in the expect statement?

Simple: 'eof' is recognized as a special pattern, so you just
say

  expect(['eof', \&callback, @callback_parms], ...);

Unfortunately, EOF handling is somewhat broken, EOF
is recognized and the callback activated, but the
internal expect loop is not terminated and thus waits
until timeout.  I have a patch for this and will release
a new Expect version within a few days.

Hope this helps,

Roland

--
RGi...@cp...

[Expectperl-discuss] RE: Expect.pm

[Hemming, C. <Cliff_Hemming@AFCC.com>]

So how would I specify 'EOF' in the expect statement?

> -----Original Message-----
> From:	Roland Giersig [SMTP:Rol...@al...]
> Sent:	Thursday, November 09, 2000 01:54
> To:	Hemming, Cliff
> Cc:	exp...@li...
> Subject:	Re: Expect.pm
> 
> "Hemming, Cliff" wrote:
> > I have found a interesting little problem that I was wondering if you
> could
> > shed some light on. When I running a process a perform a
> >         $TELNET->expect( undef, "Wait For this");
> > If the child process exits without sending that phrase, the expect perl
> > script does not return. I was wondering if this normal behavior or if I
> have
> > problem. I guess I'm really asking if Expect handles signals from the
> child
> > processes?
> 
> Yes, this problem has already been reported, but should
> be solvable by expecting 'eof', which is activated
> when the child exits, so this is probably your best bet.  
> 
> Expect does not handle SIGCHILD (which it should; I intend a 
> complete rewrite and have this on the feature list) but 
> instead relies on EOF detection from the pty.  But as the 
> state machine is heavily patched, there might be some problems 
> with that also.
> 
> I'm already investigating this, but I guess this is best solved
> by a clean redesign, so it will take some time.
> 
> Thanks for telling.
> 
> Roland
> --
> Rol...@gm...

[Expectperl-discuss] Re: Expect.pm

[Roland G. <Rol...@al...>]

"Hemming, Cliff" wrote:
> I have found a interesting little problem that I was wondering if you could
> shed some light on. When I running a process a perform a
>         $TELNET->expect( undef, "Wait For this");
> If the child process exits without sending that phrase, the expect perl
> script does not return. I was wondering if this normal behavior or if I have
> problem. I guess I'm really asking if Expect handles signals from the child
> processes?

Yes, this problem has already been reported, but should
be solvable by expecting 'eof', which is activated
when the child exits, so this is probably your best bet.  

Expect does not handle SIGCHILD (which it should; I intend a 
complete rewrite and have this on the feature list) but 
instead relies on EOF detection from the pty.  But as the 
state machine is heavily patched, there might be some problems 
with that also.

I'm already investigating this, but I guess this is best solved
by a clean redesign, so it will take some time.

Thanks for telling.

Roland
--
Rol...@gm...

Re: [Expectperl-discuss] Expect not working on HP/UX

[Roland G. <Rol...@al...>]

mgraham wrote:
> 
> I'm finding that Expect hangs on a trivial example on HP/UX:
> 
>     #!/opt/local/bin/perl
> 
>     use strict;
>     use Expect;
> 
>     my $exp = Expect->spawn('ls', '-la');
> 
> The program just hangs and never completes.  This runs fine under
> Linux.

It also works on Solaris.

> Using the expect program (v5) on the same HP/UX system, I can run the
> following without problems:
> 
>     bash-2.04$ expect
>     expect1.1> spawn ls -la
>     spawn ls -la
>     20348
>     expect1.2> interact
>     total 16
>     drwxr-xr-x   2 mgraham    ops             96 Sep 29 14:17 .
>     drwxr-xr-x   6 mgraham    ops           4096 Sep 29 14:17 ..
>     -rwxr-xr-x   1 mgraham    ops             93 Sep 29 14:17 exp.pl
> 
> After turning on Expect.pm debugging in the perl script
> ($Expect::Debug = 2), I get the following output:
> 
>     Spawned 'ls -la'
>             spawn id(3)
>             Pid: 20378
>             Tty: /dev/pts/11
>     Closing spawn id(3).
> 
> >From my experience on Linux, I think I should also see details of the
> process from the child's point of view.
> 
> I would like to debug this issue further, but I don't really know
> where to start.  Any help would be greatly appreciated...
> 
> System info:
>     Expect.pm 1.08
>     perl 5.005_03
>     PA-RISC2.0
>     HP/UX B.11.00
> 
> Michael

Sorry that I cannot be of more help.  You might want to 
post this to the newsgroups (you probably already have),
as this mailing list isn't really well staffed yet.

I haven't announced the new Expect release to the 
newsgroups yet due to problems in CPAN (you cannot install 
the new version with CPAN.pm, you'd get the old one :-( ),
so we have a rather small user community.  But I hope this 
will change soon.

Roland
--
RGi...@us...

[Expectperl-discuss] Expect not working on HP/UX

[mgraham <mg...@to...>]

I'm finding that Expect hangs on a trivial example on HP/UX:

    #!/opt/local/bin/perl

    use strict;
    use Expect;

    my $exp = Expect->spawn('ls', '-la');

The program just hangs and never completes.  This runs fine under
Linux.

Using the expect program (v5) on the same HP/UX system, I can run the
following without problems:

    bash-2.04$ expect
    expect1.1> spawn ls -la
    spawn ls -la
    20348
    expect1.2> interact
    total 16
    drwxr-xr-x   2 mgraham    ops             96 Sep 29 14:17 .
    drwxr-xr-x   6 mgraham    ops           4096 Sep 29 14:17 ..
    -rwxr-xr-x   1 mgraham    ops             93 Sep 29 14:17 exp.pl


After turning on Expect.pm debugging in the perl script
($Expect::Debug = 2), I get the following output:

    Spawned 'ls -la'
            spawn id(3)
            Pid: 20378
            Tty: /dev/pts/11
    Closing spawn id(3).

From my experience on Linux, I think I should also see details of the
process from the child's point of view.

I would like to debug this issue further, but I don't really know
where to start.  Any help would be greatly appreciated...

System info:
    Expect.pm 1.08
    perl 5.005_03
    PA-RISC2.0
    HP/UX B.11.00


Michael

[Expectperl-discuss] Problems getting started with Expect.pm and IO::Pty

[Adams, J. W <JA1...@ex...>]

I'm having some problems getting Expect.pm installed and running--I suspect
my problem is in IO::Pty, but I don't know for sure. When I try this:

	#!/usr/bin/perl

	use Expect;
	$c = Expect->spawn("/usr/bin/telnet host");

I'm getting this:

	Expect: Could not assign a pty at
/usr/local/bin/perl5/site_perl/5.005/Expect.pm line 60.

I tried this also:

	#!/usr/bin/perl

	use IO::Pty;
	$pty = new IO::Pty;
	$slave = $pty->slave;

I get this:

	Cannot open  as :No such file or directory at ./exp2.pl line 6

(Line 6 is $slave = $pty->slave;).

I think my problem is not with Expect.pm proper but with IO::Pty--still, I
have a hunch someone else might have had similar problems.