expectperl-discuss

[Expectperl-discuss] Question about interact()

[Wes M. <we...@sl...>]

I am having some difficulty with Expect.pm.  Here is a simple command line that duplicates the behavior I'm seeing, but not on all versions of Perl/Expect.pm.

perl -e 'use Expect;$exp = Expect->spawn("script", "test.script");$exp->interact();print "All done\n";'

When I run that on my system (Perl 5.6.0, Expect.pm 1.11), it takes about 30 seconds after I exit the script program before I see "All done".  When I set Expect->Debug to 1, it says that it times out waiting for an EOF a couple times.  That seems to be where the delay is coming from.  I have had others try to help me with this and they have reported that interact() returned immediately (using Perl 5.004 and Expect.pm 1.07 I believe).  Is there something different I can do to make this work more quickly or is this related to the bug mentioned earlier on this list that will be fixed in the next release?  Thanks.

-- 
Wes Morgan

we...@sl...
wmo...@ca...

Debian: apt-get into it.


-----BEGIN PGP PUBLIC KEY BLOCK-----
Version: GnuPG v1.0.4 (GNU/Linux)
Comment: For info see http://www.gnupg.org

mQGiBDrckPYRBACX731+mhYmj3oFUCGclJFn3YfM3FCmuLoPxGCy5QtRzHZY4XtM
gQ54gSLkTNafhpLC0S+/BfYVpsumLrkif2AGTg0Dnuww0/xDSLKdWhFZUhcopRy5
xXBnz1PZQCJnCjDcSHl4RaVoywmKcZ3TfaDNnu1/RLtlr9tx5XNbWBnw3wCgntC+
lbCBz+LidCrRrEC2N/PlYpMD/0Icn7Uex7jRYcDx2R78cFKDpUGHMtx7VCzGyQbC
L3kz94mm1/aXt0ELqbq5k8qKPq80kXhJkx7jwSqn0V6XO9GAk85Dkk3GHm/iCli6
KhSzC4m485ZKvPKnEU3Nue9hgvC08YSjrfvXosEZsm5kwcniHphugbviW0C+AdmA
BWEoA/9qoxeIntesKq1MsUAXTgDCkT1BCBGn9YoxWhbiyz5iLPn4nTq2hwR1xqhQ
xztHYJkmSlBHeUIhAicPsk3U8gd9L5S3FEWrelm+1GRBhy1/HRBam33ypgg9U5i6
IDST1hqExj3WPG68pJsRl6TwKkrUGNIXi8/yl2ximBOYooFx7rQrV2VzIE1vcmdh
biAoQmFzc0hvbWJyZSkgPHdlc21Ac2xhY2tuZXQub3JnPohXBBMRAgAXBQI63JD2
BQsHCgMEAxUDAgMWAgECF4AACgkQVHVnnbHtaCXu9wCfQBJ5Vsep8waEZEP7cT5/
el7CIF4AoI3dZamvLWsMK7YPdatRNObsf6/guQENBDrckPoQBADZpcFo6MyA0rhP
q43mNdpfMJm4JnmD5kMnRSli/HDdLk2Epa3EY1wgMB6NovLr8fV/2cp/5KdXg8j/
V780qOZhpQpTL8AXvIw9yMAIwwpARpFl//VVK+3l1+IgzHRWiQC7SWhTsqIk4ppP
kRafwefx8r3KYFxljAmlV2zKNSiQrwADBQP+KDV3Lh/k3IHORiX1FV5fZALbJi+X
TTs+onMndtZyhIPpZ6Z6AMygdXa2WQy2U24tkvmMQdMuIOTCZiCuXsbnBw5FwwvL
tfSloF1R6xfvme8yATDZXJnPFUW5jFwwMto3Hnoh95MqJLfXTpu1FrBXVE4YVSJa
eA1FuaQJnnllGu+IRgQYEQIABgUCOtyQ+gAKCRBUdWedse1oJbQIAJ9uDRktfJHP
5veOAfncvrX99hnHKQCgmdySczcSbc9/YxTAJ+GfA1/OOtU=
=PCOv
-----END PGP PUBLIC KEY BLOCK-----

Re: [Expectperl-discuss] Question about interact()

[Roland G. <r.g...@xs...>]

Wes Morgan wrote:
> 
> I am having some difficulty with Expect.pm.  Here is a simple command line that duplicates the behavior I'm seeing, but not on all versions of Perl/Expect.pm.
> 
> perl -e 'use Expect;$exp = Expect->spawn("script", 
> "test.script"); $exp->interact();print "All done\n";'
> 
> When I run that on my system (Perl 5.6.0, Expect.pm 1.11), it takes about 30 seconds after I exit the script program before I see "All done".  When I set Expect->Debug to 1, it says that it times out waiting for an EOF a couple times.  That seems to be where the delay is coming from.  

Can you send me the output with Debug=1?  Maybe I can sort some things out.

The long delay comes from the DESTROY method of expect being too
nice.  It first tries to do a soft_close() which waits for 15 seconds
for the process to finish, then closes the filehandle, waits another
15 seconds, then sends a SIGTERM and waits *another* 15 seconds.
That's much too nice for a doomed process and will be fixed in the
next release.

Hope this helps,

Roland