Where the perl scripts live...

[broquaint]

I want to find out the current directory of the perl script I'm in e.g

use Cwd;
print cwd()."\n";

However, the above code tells you where the script is being executed from so

# /usr/local/src/perl/> perl test.pl
/usr/local/src/perl

works fine and dandy but this isn't so good

# /home/foobar/> perl /usr/local/src/perl/test.pl
/home/foobar

as I still want to get /usr/local/src/perl as that's where it lives.
Is there a nice perl-y way of doing this? Or am I going to have to resort to the dark arts of 'nasty hacking'?

broquaint

[John M. Dlugosz]

print $0;

[suaveant]

There is also

use FindBin;
$FindBin::Bin

which gives you just the directory the script is in

                - Ant
                - Some of my best work - Fish Dinner

[broquaint]

Excellent!
That's exactly want I wanted.
'Many thanks' x $alot;

broquaint

[tye]

Since FindBin was mentioned, I feel obligated to mention FindBin is broken (RE: How do I get the full path to the script executing?). In summary, FindBin mostly works but for the wrong reasons and (IMHO) in very much the wrong way.

        - tye (axe? what axe?)

[LD2]

Some other suggestions are found in this node - Getting Current Directory.

[Russ]

Noting that I do not necessarily recommend this procedure, yet use it on occasion (in an environment where I implicitly trust the user - me):

# Ugly trick to let us use our modules while calling the script from e
+lsewhere
use lib substr($0, 0, rindex($0, '/'));

I now have access to the script's directory and can use modules located there, even though I was in another directory when I executed the script.

$Pretty--
$Effective++

Russ
Brainbench 'Most Valuable Professional' for Perl