perl 获取目录信息

 

#!/usr/bin/perl -w
use strict;
use FindBin qw($Bin $Script);

my $rp=$Bin;
print "the script dir:$rp\nscript name:$Script\n";

use Cwd qw(abs_path getcwd);
my $abs=abs_path(getcwd());
print "current path is:$abs\n"