Re^2: wrapper script to conditionally exec different perls? (#!->#!->#!->...)

I bet most kernels don't support having a #! line in a script that points to another script that has another #! that points to another thing. You see how that could quickly get rather convoluted.

Unfortunately, when I try to do that myself to test it, rather than a nice clear error message telling me not to be such a clever prick, I get errors that look like my Perl script is being interpreted by something other than perl but I am, so far, at a loss as to what that other thing is.

When I ran "strace script" to figure out what other thing is trying to interpret my Perl code, I got "exec: Exec format error" from strace.

So, one answer for the OP is to write this simple wrapper in a compiled language so that the wrapper doesn't need a #! of its own.

- tye

Comment on Re^2: wrapper script to conditionally exec different perls? (#!->#!->#!->...)

Replies are listed 'Best First'.
Re^3: wrapper script to conditionally exec different perls? (#!->#!->#!->...) by stackspace (Initiate) on Feb 15, 2012 at 22:41 UTC
Tye proposed using a compiled language for the wrapper program. Indeed, a simple C program performs the desired wrapping perfectly. Thanks much! I suspect my problem had to do with something being run via "sh -c", even when my wrapper was a perl script. I got the same "exec: format error" that Tye did when strace'ing my script.	[reply]
Re^3: wrapper script to conditionally exec different perls? (#!->#!->#!->...) by Eliya (Vicar) on Feb 15, 2012 at 20:22 UTC
most kernels don't support having a #! line in a script that points to another script While this is correct in general, it's maybe worth pointing out that newer versions of the Linux kernel (as of 2.6.27, IIRC) can actually handle this fine (finally!). I.e., things like these do in fact work: --- `perl-wrapper` --- `#!/usr/bin/perl my $choice = splice @ARGV,1,1; exec '/usr/local/perl/5.14.1/bin/perl', @ARGV if $choice == 14; exec '/usr/local/perl/5.12.3/bin/perl', @ARGV if $choice == 12; exec '/usr/local/perl/5.10.1/bin/perl', @ARGV if $choice == 10; exec '/usr/local/perl/5.8.8/bin/perl', @ARGV;` [download] --- `wrap-test.pl` --- `#!/home/eliya/tmp/perl-wrapper print "$] -- @ARGV\n";` [download] `$ ./wrap-test.pl 14 foo bar 5.014001 -- foo bar $ ./wrap-test.pl 12 foo bar 5.012003 -- foo bar $ ./wrap-test.pl 10 foo bar 5.010001 -- foo bar $ ./wrap-test.pl 99 foo bar 5.008008 -- foo bar` [download] (the technique to use the first arg as version selector is of course just for demo purposes) P.S.: side note for anyone playing with this: make sure you have the string "perl" in the shebang line, or else you'll get surprising effects like endless exec loops... — see perlrun for why (search for the word "bizarre").	[reply] [d/l] [select]