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

https://blog.csdn.net/VirBird/article/details/20138695

1. 如何使用：

FindBin

 

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

 

 

Cwd

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

 

2. 它们的区别

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

 

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

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

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