perl - 如何获取我执行的 perl 脚本的绝对路径？

Question

例如，我想获取我执行的 perl 脚本的绝对路径

我当前的工作目录是 /home/Program/A/B 并且 /home/Program/A/sort.pl 中有一个 perl 脚本

当我在 /home/Program/A/B 目录下输入 perl../sort.pl时，我想得到

绝对路径sort.pl是 /home/Program/A/sort.pl

我的意思是无论我当前的工作目录是什么，我都想获取 perl 的绝对路径

脚本是，如何实现呢？

谢谢

Answer 1

这就是你想要的：

use FindBin qw($RealScript);

这为您提供了修复所有符号链接的完整路径。

Answer 2

Cwd 模块有一个有用的功能可以做到这一点：

use Cwd qw(abs_path);
print abs_path(__FILE__), "\n";