ロングevalの文字列

Question

私は、Perlに比較的新しいですし、他の誰かが書いたPerlファイルに取り組んでいます、と私は、スクリプトの先頭に次のステートメントに遭遇保つ：

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

これら2つのラインは何をしていますか？コードチェックとは何ですか？と文は何をif 0;は何ですか？

Answer 1

これはexecハックの変形です。インタプリタが確実に#!で指定される前の日に、これを使ってシェルをexecのperlにしました。 2行目のif 0は、シェルによって読み取られることはありません。シェルは最初の行のみを読み取り、execs perlはif 0を読み取り、それ自体を再実行しません。

これは興味深い変形ですが、私は正しくはないと思います。これは、bourneシェルまたはcshバリアントで動作するように設定されています。初期evalを使用してそれを解析するシェルを決定し、適切な構文を使用して引数をperlに渡します。中間節はsh構文であり、最後の節はcshに適しています。 2番目の&&が||で、最初のeval '(exit $?0)'が実際にcshで失敗した場合、これはそれらの目標を達成するでしょうが、書かれているように、私はcshのためにはうまくいかないと思います。これに先立って、シェルに基づいてある値に$?を設定するコマンドがありますか？しかし、そうであっても$?がゼロ以外の値に設定されていても、&&が||に置き換えられない限り、実行されるものはありません。面白いことが起こっています。