perl use Cwd

文章来源：

　　http://blog.sina.com.cn/s/blog_5d3da3280100msbn.html

 

perl -MCwd -e '$s=cwd;;print $s;'

perl -e 'print $ENV{PWD};'

 

为了保证平台兼容性,多使用Cwd取当前目录
use Cwd;
my $dir = getcwd;
或者
my $dir = cwd;
my $dir = fastgetcwd;
它们都返回程序运行的当前路径.

use Cwd 'abs_path';
my $abs_path = abs_path($file);
或者$abs_path = realpath($file);
或者$abs_path= fast_abs_path($file);
返回一个文件的真实地址,Symlink的话返回Symlink到的地址.

默认的,$ENV{PWD}总不会更新
#!/usr/bin/perl
print $ENV{PWD};        # /root/perl
chdir('/');
print $ENV{PWD};        # /root/perl

要解决这个问题,可以使用use Cwd qw(chdir):
#!/usr/bin/perl
use Cwd qw(chdir);
print "$ENV{PWD}\n";
chdir('/');
print "$ENV{PWD}\n";