Re: [Expectperl-discuss] couldn't exit with status code from Expect ?

[<RGi...@a1...>]

> I'm trying to exit perl whith an exit code after doing some expect 
> stuff, but the exit code is always set to 1. What I'm doing wrong ?
> here is my test code:
> #!/usr/bin/perl -w
> use strict;
> use Expect;
> 
> my $exp=Expect->spawn("csh") or die "error: $!";
> print $exp "exit 3";
> exit 3;
> 
> 
> %./test.pl
> %echo ?$
        ^^ I hope this is only a typo....
> 1
> %
> 

Try "perl -e 'exit 3'; echo $?", which should print "3".  '$?' is only 
valid within the same shell command, so it's no wonder you don't see 
it...

If you want to capture the exit status of a spawned process, try

 my $exp = Expect->spawn("csh"); 
 $exp->send("exit 3\n");
 $exp->expect(5);
 print "exitstatus: ".$exp->exitstatus."\n";

which prints "exitstatus: 768" on my system.

Hope this helps,

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