How can I get the absolute path of my Perl program from its relative path?

perl, relative-path

Solution

Use the FindBin module:

$ cat /tmp/foo/bar/baz/quux/prog
#! /usr/bin/perl

use FindBin;

print "$FindBin::Bin/$FindBin::Script\n";

$ PATH=/tmp/foo/bar/baz/quux prog
/tmp/foo/bar/baz/quux/prog

$ cd /tmp/foo/bar/baz/quux

$ ./prog 
/tmp/foo/bar/baz/quux/prog

Problem

I need to find the full path to the Perl script I'm currently running, i.e. for ~/dir/my.pl I would need it to be "/home/user/dir/my.pl". The `$0` will give me "~/dir/my.pl". for ./my.pl I would still need "/home/user/dir/my.pl" etc. Thanks!

Original source