perl获取当前绝对路径
use Cwd;
my $dir = getcwd;
say $dir;
my $dir_ = $ENV{'PWD'};
say $dir_;
use File::Spec;
my $path_curf = File::Spec->rel2abs(__FILE__);
my ($vol, $dirs, $file) = File::Spec->splitpath($path_curf);
print "PATH = ", $path_curf,"\n";
print "Dir = ", $dirs,"\n";