perl - 如何从相对路径中获取 Perl 程序的绝对路径？

Question

我需要找到我当前正在运行的 Perl 脚本的完整路径，即

对于 ~/dir/my.pl，我需要它是“/home/user/dir/my.pl”。 $0会给我“~/dir/my.pl”。

对于 ./my.pl 我仍然需要 "/home/user/dir/my.pl"

等谢谢!

Answer 1

使用 FindBin模块:

$ cat /tmp/foo/bar/baz/quux/prog
#! /usr/bin/perl

use FindBin;

print "$FindBin::Bin/$FindBin::Script\n";

$ PATH=/tmp/foo/bar/baz/quux prog
/tmp/foo/bar/baz/quux/prog

$ cd /tmp/foo/bar/baz/quux

$ ./prog 
/tmp/foo/bar/baz/quux/prog