Perl得到源文件的路径，使用shell变量

 

为了保证平台兼容性,多使用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";        # /

 

3、perl中使用shell变量

declare -x path=/user/test

 

test.pl

#!/home/niewf/test.pl

$path=$ENV{"path"};

echo "$path/n";