获取当前进程的perl可执行文件的绝对路径

Question

有没有办法获得当前进程的Perl可执行文件的绝对路径？

$ ^ X将为我提供Perl可执行文件名,但是文档声明它有时会是一个相对路径,例如在OS X上这似乎是正确的.

ExtUtils :: MakeMaker似乎有一些神奇的东西可以找到绝对路径,因为它在我的OS X上生成的Makefile包含

PERL = /usr/local/bin/perl
FULLPERL = /usr/local/bin/perl

但我不知道它是如何做到的,或者其他人是否可以轻易获得魔法.

编辑:谢谢鲍罗丁的$Config{perlpath}提示.在ExtUtils中对此进行了解释,我在ExtUtils :: MM_Unix :: _ fixin_replace_shebang中找到了这个小窍门,我猜这是MakeMaker使用正确的shebang代替#!perl的内容.

    if ( $Config{startperl} =~ m,^\#!.*/perl, ) {
        $interpreter = $Config{startperl};
        $interpreter =~ s,^\#!,,;
    }
    else {
        $interpreter = $Config{perlpath};
    }

Answer 1

我想你要找的是$Config{perlpath}.

如果您希望代码非常便携,则可能需要将文件类型附加到该值; 这在perlport文档中有描述.否则所有你需要的是:

use Config;
my $perl = $Config{perlpath};