Directory of Perl scripts

Source:

Http://www.cnblogs.com/itech/archive/2013/02/20/2919204.html

Http://stackoverflow.com/questions/5703705/print-current-directory-using-perl?rq=1

1)

The following get the script ' s directory, which is not the same as the current directory. It ' s not clear which one want.

use Cwd qw( abs_path );

useFile::Basename qw( dirname );say dirname(abs_path($0));

Or

usePath::Class qw( file );say file($0)->absolute->dir;

Or

useCwd qw( abs_path ); use Path::Class qw( file );say file(abs_path($0))->dir;

The middle one handles symlinks different than the other, I believe.

2)

To get the current working directory (PWD in many systems), you could use CWD () instead of Abs_path:

useCwd qw(); my $path =Cwd::cwd(); print "$path\n";

Or Abs_path without an argument:

useCwd qw(); my $path =Cwd::abs_path(); print "$path\n";

See the CWD docs for details.

To get the directory your Perl file was in from outside of the directory:

useFile::Basename qw(); my($name, $path, $suffix)=File::Basename::fileparse($0); print "$path\n";

See the File::basename docs for more details.

3)

Could useFindBin:

use FindBin ‘$RealBin‘; print "$RealBin\n";

FindBinis a standard module (installed) when you install Perl. To get a list of the pragmatics and modules, seeperldoc perlmodlib.

Directory of Perl scripts