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