Perl：获取（未解析）符号链接的路径

Question

我有一个 perl 脚本，它的路径是 /scripts/original/ascript.pl

此脚本的符号链接也存在：/scripts/linked/ascript.pl

在 ascript.pl 中，我需要调用脚本的路径（因此是 /scripts/original 或 /scripts/linked）。

abs_path() 总是返回解析的位置：

use strict;
use Cwd qw(abs_path);

print abs_path($0); # Always prints /scripts/original/ascript.pl

如何获得完整的未解析路径？

Answer 1

您可以使用Cwd::getcwd() 获取未解析的脚本路径。但是这已经在FindBin 中以更健壮和通用的方式实现了，所以我们不必重新发明轮子：

use FindBin;
print '$Bin: ', $FindBin::Bin, "\n";
print '$Script: ', $FindBin::Script, "\n";

输出：

$Bin: /scripts/linked
$Script: ascript.pl

你查看FindBinhere的来源。