How to recieve the exit code of a script executed through Expect ?

daphnaw has asked for the wisdom of the Perl Monks concerning the following question:

Hi, Yet another Expect question. My application runs on v5.10.1 and Expect.pm v1.21. I have a perl script (scriptA) which executes another script (scriptB) as user root using Expect. scriptB may result in failure (exit code 1) or success (exit code 0); However, I'm not able to determine the result:

my $result = $exp->send("exec dummp.pl\n");
{
                #Ignoring :: IO::Stty not installed, cannot change mod
+e at test.pl line 22
                local $SIG{__WARN__} = sub {
                my $warn = shift;
                if ($warn !~ /IO::Stty/) {
                        print STDERR $warn;
                }
                };
                $exp->interact;
}
$exp->soft_close();
my $status = $exp->exitstatus();
[download]

$result returns empty & $status will always return -1. I've tried adding a match pattern for the string printed at th end of the script in case of success, with no success either :

my $resonse =  'Installation finished successfully' ;

$exp->expect($timeout,
        ['-re', $resonse => sub {} ],
        [ timeout => sub { die "Timeout, no prompt" } ],
);
[download]

Any ideas? Thanks Daphna

Comment on How to recieve the exit code of a script executed through Expect ? Select or Download Code

Replies are listed 'Best First'.
Re: How to recieve the exit code of a script executed through Expect ? by Illuminatus (Curate) on May 05, 2010 at 17:55 UTC
I have not looked at the actual source for Expect.pm, but according to the pod info the send method does not indicate that it returns any value. Perhaps there is a better way, but the only thing that comes to mind is to wrap your called script inside a shell script, which then prints the exit status. You can then use $exp->expect to look at it wrapper.sh: `#! /bin/bash dummp.pl # may need full/relative path here echo $?` [download] modified example: `my $result = $exp->send("exec wrapper.sh"); $exp->expect (5, [qr/1/, sub {<handle failure>}], [qr/0/, sub {<handle success>}], ...); ...` [download]	[reply] [d/l] [select]
Re^2: How to recieve the exit code of a script executed through Expect ? by daphnaw (Acolyte) on May 06, 2010 at 09:15 UTC
Hi, the wrapper script didnt help. If I run my script with $exp->exp_internal(1); I see the following output: Sending 'exec wrapper.sh\n' to spawn id(3) at /export/home/ana37/utils/linux/perl/site/lib/Expect.pm line 1264 Expect::print('Expect=GLOB(0x1f515338)', 'exec wrapper.sh\x{a}') c +alled at test.pl line 32 In dummy.pl~!!!!!!!!!!!!!!!! ** Installation finished successfully 0 Starting EXPECT pattern matching... at /export/home/ana37/utils/linux/perl/site/lib/Expect.pm line 561 Expect::expect('Expect=GLOB(0x1f515338)', 5, 'ARRAY(0x1f121428)', +'ARRAY(0x1f536fc0)') called at test.pl line 46 spawn id(3): list of patterns: #1: -re `(?-xism:1)' #2: -re `(?-xism:0)' spawn id(3): Does `' match: pattern #1: -re `(?-xism:1)'? No. pattern #2: -re `(?-xism:0)'? No. -1 [download] so there is no match ...	[reply] [d/l]
Re^3: How to recieve the exit code of a script executed through Expect ? by Illuminatus (Curate) on May 06, 2010 at 13:31 UTC
There is no match because your perl program prints output. My example only expected the return status as output. Make sure that your script either only prints the exit status value, or that your expect call handles other possible outputs too.	[reply]