PERL获得目录的问题，，求大神帮忙。

jy198435

如下：
   假设1.PL在c:\a目录下，我在d:\b目录下调用1.PL,怎么让1.PL得到d:\b这个目录。

pitonas

my $dir = $NEV{PWD};

mcshell

回复 1# jy198435

perldoc File::Basename
   

use File::Basename;

($name,$path,$suffix) = fileparse($fullname,@suffixlist);
$name = fileparse($fullname,@suffixlist);

$basename = basename($fullname,@suffixlist);
$dirname  = dirname($fullname);

feiying00917

use Cwd;
my $dir=getcwd();
print $dir;

fender0107401

lz是要chdir？

fender0107401

Windows下面不清楚，应该跟Linux或者BSD下面是一样的吧。

qq27898

回复 3# mcshell


    每次都写的这么复杂。。。。怎么看呀