Perl 獲得當前路徑

 

1、有兩種方法：
1. use Cwd;
my $dir = getcwd;
#$dir中即為當前目錄的完整路徑信息。
2. my $dir = $ENV{'PWD'};
#ENV是一個散列，用於存放環境變量。PWD是Linux的環境變量，表示當前所在目錄。

 

my  $path=`pwd`;
print $path,"/n";

 

2、STAF的Lib庫路徑信息
該程序利用Perl來調用STAF的接口，所以一定要將STAF相關的PM文件，庫文件的路徑信息指定。其中Perl程序中需要調用STAF的PM文件時，可以利用
BEGIN {
push @INC, "/usr/local/staf/bin";
}將路徑信息包含在內。

 

3、perl里將當前路徑保存到變量

use FindBin qw($Bin);