[Perl]如何取绝对路径:FindBin模块和Cwd模块用法和区别

1. 如何使用：

FindBin

use FindBin qw($Bin);
my $root_path = $Bin;
print "脚本的路径:$root_path\n";

Cwd

use Cwd qw(abs_path getcwd);
my $abs = abs_path(getcwd());
print "运行脚本的路径:$abs\n";

2. 它们的区别

大家一定注意到了"脚本运行路径"和"运行脚本的路径"，有点绕是不是，那我们来看看上面脚本运行结果就清楚了

我们在 E:\ 下运行脚本，被运行的脚本路径是E:\te\test\path.pl, 这里就可以清晰看出：

通过FindBin qw($Bin)获取的是脚本所在目录的绝对路径

通过Cwd qw(abs_path getcwd)获取的是运行脚本时所在的目录的绝对路径