Re: access to ERRORLEVEL on Win32

in reply to access to ERRORLEVEL on Win32

How about something simple like:

>perl -e "exit 5;"

>echo %errorlevel%
5

>set lasterrorlevel=%errorlevel%

>perl -e "print $ENV{'lasterrorlevel'};"
5
[download]

Comment on Re: access to ERRORLEVEL on Win32 Download Code

Replies are listed 'Best First'.
Re^2: access to ERRORLEVEL on Win32 by ikegami (Patriarch) on Jun 29, 2009 at 16:46 UTC
If you're going to modify the program, you might as well just pass the errorlevel as a parameter. `>cmd /c exit 5 >echo %ERRORLEVEL% 5 >perl -le"print @ARGV" %ERRORLEVEL% 5` [download]	[reply] [d/l]
Re^3: access to ERRORLEVEL on Win32 by gkraus (Novice) on Jul 01, 2009 at 11:30 UTC
Thanks for all your advice. Passing %ERRORLEVEL% as parameter is one workaround, but it would break the ease of implementation by using my script as filter. There obviously exits no way accessing %ERRORLEVEL% from perl without passing it as parameter, so things like `cmd /c "make 2>&1 \| perl vcproj_filter.pl"` [download] must be changed in batch file like `make > output.txt 2>&1 perl %ERRORLEVEL% output.txt"` [download] Unfortunatly the following doesn't work: `cmd /c "make > output.txt 2>&1 && perl %ERRORLEVEL% output.txt"` [download] It seems if you start more then one process using `&&` or `\|` ERRORLEVEL is not set for each process but only for the last one. That's why using my script in a pipe and reading %ERRORLEVEL% would never work. I finally use a seperate perl script from where I make the call to make via system() and gather the return code from $?. The output is filtered afterwards. Thanks for the help!	[reply] [d/l] [select]
Re^4: access to ERRORLEVEL on Win32 by ikegami (Patriarch) on Jul 01, 2009 at 18:13 UTC
Have you considered an interface like `strace` and (the unix) `time`? `perl vcproj_filter.pl make all >output.txt 2>&1` [download] To launch the child, you'd use `system { $ARGV[0] } @ARGV` [download] The down side of this method is that the output of `make` and `vcproj_filter` will get mixed together.	[reply] [d/l] [select]

In Section Seekers of Perl Wisdom