autoit script returning values

[bingobingo]

im running autoit in the cmd through perl.

how can i get an autoit script to return values when run through the command line?

[Zedna]

Exit(3)

returns 3 as return code to parent process

[KaFu]

Compile as CUI, consolewrite should do

$i = 0
while 1
    sleep(1000)
    $i += 1
    ConsoleWrite("Line " & $i & @crlf)
wend

[bingobingo]

Exit(3)

returns 3 as return code to parent process

but i get 768.

?

[/dev/null]

but i get 768.

?

Run it like this:

perl -e "my $exitcode = system('exit_test.exe') >> 8; print $exitcode;"

You have to right shift the exit code for 8 bits. Then it's the correct value.

Cheers

Kurt

[bingobingo]

Run it like this:

perl -e "my $exitcode = system('exit_test.exe') >> 8; print $exitcode;"

You have to right shift the exit code for 8 bits. Then it's the correct value.

Cheers

Kurt

sweet, it works, thanks a lot.

but what if i want to return multiple values?

when i do Exit (5,6)

i get an error.

[/dev/null]

sweet, it works, thanks a lot.

but what if i want to return multiple values?

when i do Exit (5,6)

i get an error.

Exit() has only one parameter. Here is a possible solution.

AU3: test_exit.au3

ConsoleWrite("Hello Test");

exit(3);

Perl: exit.pl

my $cmd = 'exit_test.exe';

open(PIPE, "$cmd |");

my $exit_line = <PIPE>;

close(PIPE);

print $exit_line;

Then parse the content of $exit_line.

EDIT: Or, to stick with your sample.

AU3: test_exit.au3

ConsoleWrite("5,6");

exit(3);

Cheers

Kurt

Edited March 9, 2009 by /dev/null

[bingobingo]

Exit() has only one parameter. Here is a possible solution.

AU3: test_exit.au3

ConsoleWrite("Hello Test");

exit(3);

Perl: exit.pl

my $cmd = 'exit_test.exe';

open(PIPE, "$cmd |");

my $exit_line = <PIPE>;

close(PIPE);

print $exit_line;

Then parse the content of $exit_line.

EDIT: Or, to stick with your sample.

AU3: test_exit.au3

ConsoleWrite("5,6");

exit(3);

Cheers

Kurt

thanks all, i got it.