在Perl中获取当前目录的完整路径pwd

发布时间：2020-12-15 23:59:17 所属栏目：大数据来源：网络整理

导读：zz :?http://hi.baidu.com/kenking2008/item/85b170c1d24150ddef183b49 在Perl中获取当前目录的完整路径有两种方法： 1. use Cwd; my $dir = getcwd; #$dir中即为当前目录的完整路径信息。 2. my $dir = $ENV{'PWD'}; #ENV是一个散列，用于存放环境变量。$P

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

zz :? http://www.voidcn.com/article/p-xejvewey-eb.html

1. 获取方法

use File::Basename;

print?dirname(__FILE__);

2.?设置当前目录为lib：

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

use lib abs_path(dirname(__FILE__)) . '/lib';

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!