System substitution2

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

Re: Getting perl to recognise imbedded spaces.
Thank you all for your help thus far. LTjake said my code worked for him, so I tried it again and it does work! The code actually runs from a PL2BAT file which is running an old version of Perl 5.005 though, this doesn't work, though 5.6.1 does work. Do you know why? I may need this to work on the old version for distribution to clients.

\\PRIMARY\PERL5005\BIN\perl -x -S "%0" %*
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
goto endofperl
@rem ';
#!perl -w

$ENV{TYPE}=q("c:\scotts test\type me");
$new_debug_log=q("c:\scotts test\type me.bat");
my $rc = system("$ENV{TYPE} $new_debug_log");

__END__
:endofperl
[download]

The short-name lookup didn't appeal, thought very interesting

Comment on System substitution2 Download Code

Replies are listed 'Best First'.
Re: System substitution2 by BrowserUk (Patriarch) on Nov 20, 2002 at 15:14 UTC
I don't have perl 5.005 to verify my speculation but have you tried using the other form of the system command? This allows you to avoid interpolation both within Perl and by the shell which greatly simplifies the quoting you need. The following works as is under 5.6.1 and may be better under 5.005? `#!perl -w $ENV{TYPE}='c:\scotts test\type me'; $new_debug_log='c:\scotts test\type me.bat'; my $rc = system('cmd.exe', '/c', $ENV{TYPE}, $new_debug_log );` [download] Okay you lot, get your wings on the left, halos on the right. It's one size fits all, and "No!", you can't have a different color. Pick up your cloud down the end and "Yes" if you get allocated a grey one they *are* a bit damp under foot, but someone has to get them. Get used to the wings fast cos its an 8 hour day...unless the Govenor calls for a cyclone or hurricane, in which case 16 hour shifts are mandatory. Just be grateful that you arrived just as the tornado season finished. Them buggers are real work.	[reply] [d/l]
Re: System substitution2 by bitman (Scribe) on Nov 20, 2002 at 15:46 UTC
Doesn't work correctly under 5.005 either! B*gger! ---------------------------------------------------- I don't have perl 5.005 to verify my speculation but have you tried using the other form of the system command? This allows you to avoid interpolation both within Perl and by the shell which greatly simplifies the quoting you need. The following works as is under 5.6.1 and may be better under 5.005? `#!perl -w $ENV{TYPE}='c:\scotts test\type me'; $new_debug_log='c:\scotts test\type me.bat'; my $rc = system('cmd.exe', '/c', $ENV{TYPE}, $new_debug_log );` [download]	[reply] [d/l]