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

Question

I have Perl script and need to determine the full path and filename of the script during execution. I discovered that depending on how you call the script $0 va

Answer 1

The problem with just using dirname(__FILE__) is that it doesn't follow symlinks. I had to use this for my script to follow the symlink to the actual file location.

use File::Basename;
my $script_dir = undef;
if(-l __FILE__) {
  $script_dir = dirname(readlink(__FILE__));
}
else {
  $script_dir = dirname(__FILE__);
}