How do I get the full path to a Perl script that is executing?

by

There are a few ways:

  • $0 is the currently executing script as provided by POSIX, relative to the current working directory if the script is at or below the CWD
  • Additionally, cwd(), getcwd() and abs_path() are provided by the Cwd module and tell you where the script is being run from
  • The module FindBin provides the $Bin & $RealBin variables that usually are the path to the executing script; this module also provides $Script & $RealScript that are the name of the script
  • __FILE__ is the actual file that the Perl interpreter deals with during compilation, including its full path.

I’ve seen the first three ($0, the Cwd module and the FindBin module) fail under mod_perl spectacularly, producing worthless output such as '.' or an empty string. In such environments, I use __FILE__ and get the path from that using the File::Basename module:

use File::Basename;
my $dirname = dirname(__FILE__);

More Related Contents:

  1. Converting relative path into absolute path?
  2. How does a Perl program know where to find the file containing Perl module it uses?
  3. How can I convert my shell script to Perl? [closed]
  4. search using perl one liner within a file [closed]
  5. How to re-direct the contents to a file instead of printing it to terminal
  6. How do I remove duplicate items from an array in Perl?
  7. What is the difference between library files and modules?
  8. How do I read in the contents of a directory in Perl?
  9. How can I pass command-line arguments to a Perl program?
  10. How do I efficiently parse a CSV file in Perl?
  11. How can I generate all permutations of an array in Perl?
  12. How can I install CPAN modules locally without root access (DynaLoader.pm line 229 error)?
  13. OpenSSL DH Key Too Small Error
  14. Manual installation of a Perl Module
  15. @ARGV is empty using ActivePerl in Windows 7
  16. ImageMagick Command-Line Option Order (and Categories of Command-Line Parameters)
  17. Perl Dereferencing Syntax
  18. How to extrace pg_backend_pid from postgresql in shell script and pass it to another process?
  19. Perl subroutine arguments
  20. What does the function declaration “sub function($$)” mean?
  21. How to create recursive hash of hash ? (With unlimited deep)
  22. How can I call a shell command in my Perl script?
  23. Which cpan installer is the right one? (CPAN.pm/CPANPLUS/cpanminus)
  24. How do I lock a file in Perl?
  25. Why is the Switch module deprecated in Perl?
  26. How do I list available methods on a given object or package in Perl?
  27. Which framework should I use to write modules? [closed]
  28. How do I capture Perl’s STDOUT in a variable?
  29. Is object oriented exception handling in Perl worth it?
  30. How can I check whether my Perl installation is 32 or 64 bit?

Leave a Comment