Perl 获得当前路径

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);