expectperl-discuss

[Expectperl-discuss] Return Values from spawned process

[Ryan H. <hea...@re...>]

Greetings,

  I have been trying to find a way to determine the return value (that
is: success/fail) of a spawned process (specifically scp).

Currently, I am using an Expect match, along with the values the match
returns to determine if the spawned command finished or failed.

For Example:

# Spawn our command
$cmd = Expect->spawn($scp);
$cmd->expect(60, -re => 'Enter passphrase| password:');
print $cmd "$password\r";

# Check for any returned info from scp command
@array = $cmd->expect(undef, -re => '\r\n.+');
$stuff = $cmd->exp_match();
$cmd->soft_close();

if ($array[1] eq '2:EOF')     # Finished OK
{ ... }
else                          # Command Failed
{ print "We had an error: $stuff\n"; }


Is this a proper way to check the status of the spawned process?  It
seems to work ok, but it also feels a little bit contrived.

Thank you in advance
Ryan Heatwole

Re: [Expectperl-discuss] Return Values from spawned process

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

Ryan Heatwole schrieb:
>   I have been trying to find a way to determine the return value (that
> is: success/fail) of a spawned process (specifically scp).

You mean the exit status of the spawned process?  Or do you just
want to check if the process got spawned OK?

For the first, there is $exp->exp_exitstatus(), but I haven't tested
if this gives you the right thing.  Another way to do this manually
is to add "; echo EXIT $?" to the end of your command and expect for
qr/^EXIT (\d)/. =20

In the second case, you would see the error as first line from the=20
forked process, saying something like "Cannot exec `command=B4: file not
found".

Hope this helps,

Roland
--
RGi...@cp...