Понимание кода chunk perl

Question

Может ли кто-нибудь объяснить мне, что делает следующее? Какова цель этого куска кода?

#!/bin/perl 
eval 'exec perl5 -S $0 ${1+"$@"}' 
    if 0; 

Спасибо большое!

EDIT1: Я пытаюсь изменить блок кода выше в:

#!/bin/sh 
eval 'exec perl5 -S $0 ${1+"$@"}' 
    if 0; 

, и я думаю, что он должен работать, потому что сценарий рассматривается как сценарий оболочки и eval получить казнены и perl5 вызывается для используйте perl для выполнения того же скрипта. Однако, когда я на самом деле запустить это, я получил:

/bin/sh: -S: invalid option

Может кто-нибудь объяснить, почему в этом случае сценарий не удалось. Я что-то неправильно понимаю? Я использую ksh

Спасибо большое!

EDIT2: EDIT1 кажется совершенно отдельный вопрос, и я отправляю его here

Answer 1

Это подвох, чтобы получить файл сценария для запуска либо должным образом, под Perl, или, если он представлен непосредственно в оболочки

заявление абсолютно ничего не делает по Perl из-за if 0 в конце

Однако, если он выполняется с помощью ш или Баша того продолжение строки будет проигнорирована, и оболочка будет делать eval, и запустить тот же файл через perl5

Идея состоит в том, что, хотя Perl считает строки новой строки просто лишними пробелами, оболочка видит их в качестве терминаторов операторов. Это означает, что Perl будет игнорировать eval (до тех пор, как он компилирует), потому что остальные заявления говорит if 0, в то время как оболочка будет выполнять его и exec на новый процесс

Я не могу сказать, что я вижу в этом смысла, потому что правильная линия shebang позволит вам запускать foo.pl прямо из командной строки, но мы здесь. Люди любят хаки, потому что это заставляет их чувствовать себя умными.