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

发布时间：2020-12-16 00:00:53 所属栏目：大数据来源：网络整理

导读：1. 如何使用： FindBin use FindBin qw($Bin);my $root_path = $Bin;print "脚本的路径:$root_pathn"; Cwd use Cwd qw(abs_path getcwd);my $abs = abs_path(getcwd());print "运行脚本的路径:$absn"; 2. 它们的区别大家一定注意到了" 脚本运行路径 "和"

1. 如何使用：

FindBin

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

Cwd

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

2. 它们的区别

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

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

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!