Perl 获取当前程序的绝对路径与勘误

前言
  你写的脚本（或程序）的应用场景肯定有很多，如：本机登录用户在程序所在的目录下运行；本机登录用户在根目录下运行；或者是远程用户使用SSH调用。
  而此时，你的程序涉及到一些文件的读/写操作，这时就需要以当前程序所在绝对路径为文件路径坐标基点--以定位读/写文件的所在，才能成功地读写文件。

1. 错误方式之一

use Cwd;

my $cwd = getcwd();

print "CWD PATH = ",$cwd,"\n";

这种方式：
a.在本机登录用户在程序所在目录下运行该程序时正确--获得该程序的绝对路径。
b.本机登录用户在根目录下运行和远程用户使用SSH调用获得的路径皆为“/root”

2. 错误方式之二

#!/usr/bin/perl

use Cwd;

use File::Basename;

my $cwd;

print "\$0 = ",$0,"\n";

if($0 =~ m{^/})

{

  $cwd = dirname($0);

  $cwd .='/';

}

else

{

  my $dir = getcwd();

  $cwd = dirname("$dir\/$0");

}

print "PATH = ",$cwd,"\n";

这种方式：
a. 本机登录用户在程序所在目录下使用

#./test_program.pl

运行该程序时会出错--绝对路径会多一个“.”。如“/opt/xxx/.”。

3. 正确的方式

use File::Spec;

print "\n";

my $path_curf = File::Spec->rel2abs(__FILE__);

print "C PATH = ",$path_curf,"\n";

my ($vol, $dirs, $file) = File::Spec->splitpath($path_curf);

print "C Dir = ", $dirs,"\n";

使用这种方式就能任何场景下得到正确的当前程序的绝对路径“$dir”。