#!/usr/bin/perl 的替换方案

gangcai

一下代码是功能同等于 #！/usr/bin/perl -w, 适用ksh, sh(这段代码摘自perldoc perlrun) 。 因为有些系统不能识别 #!.  请高手解释一下是如何工作的。 此断代码实际上是 以shell 代码运行的。 当作perl代码时直接就被忽略了（因为 if 0 这条语句）
                   eval '(exit $?0)' && eval 'exec perl -wS $0 ${1+"$@"}'
                    & eval 'exec /usr/bin/perl -wS $0 $argv:q'
                            if 0;

1. eval '(exit $?0)' 作用是什么？
2. 单个的 '&' 是做什么的，难道不是后台运行吗？
3. 为什么用  ${1+"$@"}, 而不直接用 "$@"?
4.  ‘if 0；’ 在shell 中语法是不对的，为什么运行在这里没问题呢？


perldoc 的原文：

            This example works on many platforms that have a shell compatible with Bourne shell:

                #!/usr/bin/perl
                eval 'exec /usr/bin/perl -wS $0 ${1+"$@"}'
                        if $running_under_some_shell;

            The system ignores the first line and feeds the program to /bin/sh, which proceeds to
            try to execute the Perl program as a shell script.  The shell executes the second line
            as a normal shell command, and thus starts up the Perl interpreter.  On some systems $0
            doesn't always contain the full pathname, so the -S tells Perl to search for the program
            if necessary.  After Perl locates the program, it parses the lines and ignores them
            because the variable $running_under_some_shell is never true.  If the program will be
            interpreted by csh, you will need to replace "${1+"$@"}" with $*, even though that
            doesn't understand embedded spaces (and such) in the argument list.  To start up sh
            rather than csh, some systems may have to replace the "#!" line with a line containing
            just a colon, which will be politely ignored by Perl.  Other systems can't control that,
            and need a totally devious construct that will work under any of csh, sh, or Perl, such
            as the following:

                    eval '(exit $?0)' && eval 'exec perl -wS $0 ${1+"$@"}'
                    & eval 'exec /usr/bin/perl -wS $0 $argv:q'
                            if $running_under_some_shell;

fanasy

推荐你看一下perldoc -f eval

Monox

gangcai 发表于 2012-07-02 15:33
一下代码是功能同等于 #！/usr/bin/perl -w, 适用ksh, sh(这段代码摘自perldoc perlrun) 。 因为有些系统不能识别 #!.  请高手解释一下是如何工作的。 此断代码实际上是 以shell 代码运行的。 当作perl代码时直接就被忽略了（因为 if 0 这条语句）
                   eval '(exit $?0)' && eval 'exec perl -wS $0 ${1+"$@"}'
                    & eval 'exec /usr/bin/perl -wS $0 $argv:q'
                            if 0;

1. eval '(exit $?0)' 作用是什么？
2. 单个的 '&' 是做什么的，难道不是后台运行吗？
3. 为什么用  ${1+"$@"}, 而不直接用 "$@"?
4.  ‘if 0；’ 在shell 中语法是不对的，为什么运行在这里没问题呢？
...

正如你说的，因为最后一行是 if 0，所以这行在 perl 下是不会运行了。
先回答你的你 4 个问题。之所以在 shell 里没问题，是因为这段代码很巧妙的由三种语言写成，一种是整个三行是 Perl 语言，前两行是 Csh 代码，仅有第一行是 bash 代码。做到这一点的关键是 exec，当 csh 或者 bash 运行 exec 后就用 Perl 进程替换掉了原来的 Shell 进程，后面的那个 if 0; 永远也不会作为 Shell 代码被执行，因此可以说它并不属于 Shell 代码的一部分。
接着是第一个问题，这个表达示的功能是使得 bash 运行

1. eval 'exec perl -wS $0 ${1+"$@"}'

复制代码

而使得 Csh 运行

1. & eval 'exec /usr/bin/perl -wS $0 $argv:q

复制代码

这一行代码，

1. exit $?0

复制代码

就是用来根据真假值来判断用的是什么 Shell 的，因为 Bash 把 0 当成真，Csh 把 1 当成真。

1. exit $?0

复制代码

相当于

1. exit 0

复制代码

至于为什么不直接用

1. exit 0

复制代码

我不太清楚，因为我对 Bash 与 Csh 都不太清楚。不过，这显然是于某种 Shell 相关的。
第2 个问题的答案是因为为了办到刚才回答的第1问的答案，我们不能用

1. &&

复制代码

，但是又必须让这一行对Shell 没什么太大的影响，而且可以保证这三行是一个完整的 Perl 代码，所以选择

1. &

复制代码

正好可以做到这一点，它是为了满足语法而存在的东西。
至于第三问，我也不是太清楚，这应该与某种 Shell 相关（比如说可能是 ksh 的要求）（如果不是与 Bash 相关的话）。

gangcai

回复 3# Monox

exec 和 "&" 的解释非常好。 大体明白这段代码是如何工作的了。 非常感谢。
   

MMMIX

gangcai 发表于 2012-07-02 15:33
3. 为什么用  ${1+"$@"}, 而不直接用 "$@"?

${1+"$@"} 的意思是若 $1 不为 unset（存在位置参数），则展开为 "$@"；否则就展开为 nothing（相当于没有位置参数）。若是直接用 "$@"，在某些 shell 下，可能会传入一个值为 "" 的位置参数（Bash/Dash 都不存在这个问题）。

gangcai

回复 5# MMMIX


    我也曾经这样怀疑过。但不确定。 谢谢您的解释。