Lange eval String am beginnning von Perl-Skript

Question

Ich bin relativ neu in Perl und bin auf Perl-Dateien von jemand anderem geschrieben, und ich halte die folgende Erklärung zu Beginn der Skripte zu begegnen:

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

Was machen diese zwei Linien? Was überprüft der Code? und Was macht der if 0; Satz?

Answer 1

Dies ist eine Variante des Exec Hack. In den Tagen, bevor Dolmetscher mit einer #! zuverlässig angegeben werden konnten, wurde dies verwendet, um die Shell Exec Perl zu machen. Die if 0 in der zweiten Zeile wird nie von der Shell gelesen, die nur die erste Zeile liest und execs perl, die if 0 liest und sich nicht selbst erneut ausführt.

Dies ist eine interessante Variante, aber ich denke nicht ganz richtig. Es scheint eingerichtet zu sein, entweder mit der Bourne-Shell oder mit csh-Varianten zu arbeiten, wobei das anfängliche eval verwendet wird, um die Shell zu bestimmen, die es parsiert, und dann die geeignete Syntax zu verwenden, um die Argumente an Perl weiterzuleiten. Der mittlere Abschnitt ist eine sh-Syntax und die letzte Klausel ist für csh geeignet. Wenn die zweite &&|| wäre und die ursprüngliche eval '(exit $?0)' tatsächlich in csh fehlschlagen würde, dann würde dies diese Ziele erreichen, aber wie geschrieben, glaube ich nicht, dass es für csh funktioniert. Gibt es einen Befehl, der dem vorausgeht, der $? auf einen Wert setzt, der auf der Shell basiert? Aber selbst wenn dies der Fall wäre und $? auf einen Wert ungleich Null gesetzt ist, würde nichts ausgeführt werden, wenn nicht && durch || ersetzt wird. Etwas Lustiges passiert.