zz : http://hi.baidu.com/kenking2008/item/85b170c1d24150ddef183b49
在Perl中获取当前目录的完整路径
有两种方法:
1. use Cwd;
my $dir = getcwd;
#$dir中即为当前目录的完整路径信息。
2. my $dir = $ENV{'PWD'};
#ENV是一个散列,用于存放环境变量。$PWD是Linux的环境变量,表示当前所在目录。
若当前目录为/usr/lib/, 则上面的$dir = /usr/lib
有两种方法:
1. use Cwd;
my $dir = getcwd;
#$dir中即为当前目录的完整路径信息。
2. my $dir = $ENV{'PWD'};
#ENV是一个散列,用于存放环境变量。$PWD是Linux的环境变量,表示当前所在目录。
若当前目录为/usr/lib/, 则上面的$dir = /usr/lib
1. 获取方法
use File::Basename; print dirname(__FILE__); |
2. 设置当前目录为lib:
use Cwd qw/abs_path/;
use File::Basename;
use lib abs_path(dirname(__FILE__)) . '/lib';