执行文件的绝对路径怎么得到?

sunworld

执行文件./tmp.pl

######## part of tmp.pl #########
use File::Basename;     
  my( $scriptdir) =dirname($0);
##########################


得到 $scriptdir == "."  

有什么办法得到tmp.pl的绝对路径?

目前,我用如下笨办法.
if ( $scriptdir eq "." )
      {
        $scriptdir = `pwd`;
      }

mcshell

1. use Cwd;
   
2. my $scriptdir = getcwd;

复制代码

jason680

回复 1# sunworld

use File::Basename;
use Cwd qw/abs_path/;

$sScript_dir = dirname(abs_path($0));

   

wxlfh

什么叫执行文件的绝对路径？

sunworld

Thank jason680.

他的方法管用. 谢谢!

inbus

use FindBin qw/$Bin/;

print $Bin;