perl and windows batch

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

Replies are listed 'Best First'.
Re: perl and windows batch by BrowserUk (Patriarch) on Jul 31, 2008 at 10:48 UTC
Given error.bat: `c:\test>type error.bat @echo off exit /b 123` [download] Use: `system 'error.bat & exit ERRORLEVEL';; print $? >>8;; 123` [download] Note: Because Perl attempts to emulate *nix here, exit codes (ERRORLEVELs) are truncated to 8 bits. Or, skip using /b: `c:\test>type error.bat @echo off exit 123 c:\test>p1 [0] Perl> system 'error.bat'; print $? >>8;; 123` [download] Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. "Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."	[reply] [d/l] [select]
Re^2: perl and windows batch by leonidlm (Pilgrim) on Jul 31, 2008 at 11:54 UTC
Thanks all The BrowserUk solution worked for me! Very good explanation also :)	[reply]
Re: perl and windows batch by moritz (Cardinal) on Jul 31, 2008 at 10:32 UTC
Quote and Quote like Operators Search for `qx`.	[reply] [d/l]
Re: perl and windows batch by MidLifeXis (Monsignor) on Jul 31, 2008 at 10:47 UTC
If moritz's suggestion does not help, please post your code (how you are calling the batch file, how you are reading the return code, etc). --MidLifeXis	[reply]
Re: perl and windows batch by Bloodnok (Vicar) on Jul 31, 2008 at 12:37 UTC
IMHO, the suggestions put forward thus far, whilst returning the status code back to the calling script, don't appear to address leonidlm's interest in the output from the called batch script - so why not just use backticks. That way, you gain access to the return code (via `$?`) and the output (via the return from the backtick invocation) e.g. my $output = `batch_file args`; die "Gone horribly wrong - $?" if $?; # or ... my @output = `batch_file args`; die "Gone horribly wrong - $?" if $?; [download] .oO(Unless, of course, Windoze sees fit to not return the status code from the batch script, in which case...) my $output = `batch_file args && exit /b ERRORLEVEL`; die "Gone horribly wrong - $?" if $?; # or ... my @output = `batch_file args && exit /b ERRORLEVEL`; die "Gone horribly wrong - $?" if $?; [download] ,or something similar, may suffice ... unless I'm missing something obvious?! Sits back and awaits ~~flames~~, errm, constructive observations ;-) HTH , At last, a user level that overstates my experience :-))	[reply] [d/l] [select]
Re^2: perl and windows batch by BrowserUk (Patriarch) on Jul 31, 2008 at 13:06 UTC
`exit /b 123` is identical to `exit 123` when executed at the command line level. Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. "Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."	[reply] [d/l] [select]
Re^3: perl and windows batch by Anonymous Monk on Jan 08, 2013 at 18:30 UTC
Actually, I found that when I used exit /b in the batch file, I was not getting the return code in my perl. Once I stripped the /b I did.	[reply]
Re^4: perl and windows batch by BrowserUk (Patriarch) on Jan 08, 2013 at 18:42 UTC
Re: perl and windows batch by Anonymous Monk on Jan 08, 2011 at 16:56 UTC
b.bat: `@echo off exit 3` [download] bb.bat: `@echo off exit /b 3` [download] p.pl: `sub test; test 'b.bat'; test 'call b.bat'; test 'b.bat & exit errorlevel'; test 'bb.bat'; test 'call bb.bat'; test 'bb.bat & exit errorlevel'; sub test { local $\ = "\n"; print "@_"; system @_; print ' exit code is: ', $? >> 8; }` [download] output: b.bat exit code is: 3 call b.bat exit code is: 3 b.bat & exit errorlevel exit code is: 3 bb.bat exit code is: 0 call bb.bat exit code is: 3 bb.bat & exit errorlevel exit code is: 3	[reply] [d/l] [select]
Re^2: perl and windows batch by Anonymous Monk on Jan 08, 2011 at 17:07 UTC
output: b.bat exit code is: 768 call b.bat exit code is: 768 b.bat & exit errorlevel exit code is: 768 bb.bat exit code is: 0 call bb.bat exit code is: 768 bb.bat & exit errorlevel exit code is: 768	[reply]


"be consistent"
	PerlMonks