通过保留符号链接获取 perl 的可执行绝对路径

Question

如何获得 perl 可执行文件的清理绝对路径但保留符号链接？ （来自$^X 变量或无论如何）

perl 可执行文件示例：

$ ls -l /opt/local/bin/perl
lrwxr-xr-x  1 root  admin  8 18 nov 02:46 /opt/local/bin/perl -> perl5.12

无论我如何运行 perl 解释器，我都希望在我的脚本中获得 /opt/local/bin/perl。

测试代码（changesbang.pl）：

use strict;
use warnings;
use Cwd;
use File::Spec;
use Config;

my $fmt = "%-25s: %s\n";

printf $fmt, "The value of ^X",        $^X;

printf $fmt, "Cwd::realpath",          Cwd::realpath($^X);
printf $fmt, "Cwd::abs_path",          Cwd::abs_path($^X);

printf $fmt, "File::Spec->cannonpath", File::Spec->canonpath($^X);
printf $fmt, "File::Spec->rel2abs",    File::Spec->rel2abs($^X);

printf $fmt, "Config{perlpath}",       $Config{perlpath};

现在当上面运行时

$ ../../../../../opt/local/bin/perl changesbang.pl
The value of ^X          : ../../../../../opt/local/bin/perl
Cwd::realpath            : /opt/local/bin/perl5.12
Cwd::abs_path            : /opt/local/bin/perl5.12
File::Spec->cannonpath   : ../../../../../opt/local/bin/perl
File::Spec->rel2abs      : /Users/jm/Develop/perl/changesbang/../../../../../opt/local/bin/perl
Config{perlpath}         : /opt/local/bin/perl5.12

没有人回我想要的/opt/local/bin/perl

问题是：如何通过约束获得想要的perl的可执行路径：

• 应该清理绝对路径
• 但如果是符号链接，应该保留它（不要将其更改为它的目标）

Ps：这里有类似this 或this 之类的问题，但没有人给我答案。

Answer 1

建议你试试

use File::Spec::Functions qw( rel2abs canonpath );

print canonpath(rel2abs($^X));

或者，有

use Cwd::Ext 'abs_path_nd';

print abs_path_nd($^X);

Answer 2

如果不解析符号链接，您的要求是不可能正确完成的。

/a/b/c/d/e/../../../../../opt/local/bin/perl

不一定相同

/opt/local/bin/perl

如果a、b、c、d 或 e 中的任何一个是符号链接。这就是canonpath 没有改变它的原因。

您正试图在您的程序中引入一个错误。