如何获取我执行的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";