Długi eval ciąg w beginnning skryptu Perl

Question

Jestem stosunkowo nowy w Perlu i pracuję na plikach Perl napisanych przez kogoś innego, a ja zachować napotykając następujące oświadczenie na początku skryptów:

eval '(exit $?0)' && eval 'exec perl -w -S $0 ${1+"$@"}' && eval 'exec perl -w -S $0 $argv:q' 
    if 0; 

Co robią te dwie linie? Co to jest sprawdzanie kodu? i co robi zdanie if 0;?

Answer 1

To jest wariant exec hack. W dniach przed interpretacją można było określić w sposób wiarygodny za pomocą #!, to było używane do tworzenia powłoki perl exec. if 0 w drugiej linii nigdy nie jest odczytywane przez powłokę, która czyta tylko pierwszą linię i wykonuje perl, który czyta if 0 i nie wykonuje ponownie samego siebie.

To interesujący wariant, ale nie do końca poprawny. Wydaje się być skonfigurowany do pracy z powłoką bourne lub z wariantami csh, przy użyciu początkowej eval, aby określić powłokę, która je parsuje, a następnie za pomocą odpowiedniej składni przekazać argumenty do perla. Środkowa klauzula to składnia sh, a ostatnia klauzula jest odpowiednia dla csh. Jeśli drugi && byłby ||, a początkowy eval '(exit $?0)' rzeczywiście zawiedzie w csh, wtedy osiągnęłoby to te cele, ale jak napisałem, nie sądzę, żeby to działało dla csh. Czy istnieje polecenie poprzedzające to, które ustawiłoby pewną wartość opartą na powłoce? Ale nawet gdyby tak było, a $? jest ustawiona na wartość niezerową, to nic nie zostanie wykonane, chyba że && zostanie zastąpione przez . Dzieje się coś śmiesznego.