Co oznacza "nie działa pod jakąś powłoką" w skryptach Perla?

Question

W wielu skryptów Perl (zwłaszcza w znanych dystrybucji CPAN) znaleźć następujący fragment kodu:

eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}' 
if 0; # not running under some shell 

Zastanawiałem się, co to jest?

Dzięki.

Answer 1

Niektóre systemy nie rozpoznają wiersza #!/usr/bin/perl na początku skryptów, więc próba wywołania programu Perl po nazwie w takim systemie spowoduje przekazanie skryptu do powłoki. Aby temu zaradzić, przenośne programy Perla zaczynają się od linii, która po interpretacji przez standardową powłokę POSIX powoduje, że skrypt zostanie przekazany do perl(1). if 0 powoduje, że linia jest ignorowana, gdy jest uruchamiana przez Perla, a umieszczenie jej w osobnej linii powoduje, że powłoki traktują ją jako oddzielne polecenie, uruchamiając tylko eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}' zaraz po odczytaniu.

Answer 2

Wiersz działa pod muszelkami i perl. W perlu eval jest pomijany z powodu następującego po if 0. W powłoce ten sam plik jest wykonywany w perl przy użyciu eval.