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