Perl - 我可以获得与脚本所在位置和执行位置相关的路径吗？

Question

我正在寻找一种获取两条信息的方法:

脚本所在位置的完整路径，包括其文件名

从

执行脚本的完整路径

我知道你可以使用 $0获取文件名，但是是否有任何其他 Perl 原生的保留变量会给我我正在寻找的东西？

我宁愿不使用任何特殊的模块，但如果这是唯一的方法，那就这样吧。

Answer 1

使用 FindBin 和 Cwd :

#!/usr/bin/env perl

use strict;
use warnings;

use Cwd        ();
use FindBin    ();
use File::Spec ();

my $full_path = File::Spec->catfile( $FindBin::Bin, $FindBin::Script );
my $executed_from_path = Cwd::getcwd();

print <<OUTPUT;
Full path to script: $full_path
Executed from path:  $executed_from_path
OUTPUT

示例输出(脚本另存为 /tmp/test.pl ):

alanhaggai@love:/usr/share$ /tmp/test.pl 
Full path to script: /tmp/test.pl
Executed from path:  /usr/share