«

How can a perl script find the absolute path to itself?

I have tried to do a 'print $0;', but $0 only tells me the command used to
invoke the script.

What I need to find is the absolute path to the directory where the perl
script is located.

--
Jørn Dahl-Stamnes
http://www.dahl-stamnes.net/dahls/

Jørn Dahl-Stamnes wrote:
> How can a perl script find the absolute path to itself?
>
> I have tried to do a 'print $0;', but $0 only tells me the command used to
> invoke the script.
>
> What I need to find is the absolute path to the directory where the perl
> script is located.

print $0 =~ /(.+)\//;

Or more portable:

use FindBin '$Bin';
print $Bin;

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

Gunnar Hjalmarsson wrote:

> Jørn Dahl-Stamnes wrote:
>> How can a perl script find the absolute path to itself?
>>
>> I have tried to do a 'print $0;', but $0 only tells me the command used
>> to invoke the script.
>>
>> What I need to find is the absolute path to the directory where the perl
>> script is located.
>
> print $0 =~ /(.+)\//;

$0 does not contain the absolute path. If I do a:

cd ~/some_dir
../some_perl_script.pl

$0 will contain "./some_perl_script.pl".

What I need is to get exactly the same as the pwd command prints out.

> Or more portable:
>
> use FindBin '$Bin';
> print $Bin;

Seems like I need to download some kind of module. FindBin is not installed
at my system.

--
Jørn Dahl-Stamnes
http://www.dahl-stamnes.net/dahls/

Jørn Dahl-Stamnes wrote:
> Gunnar Hjalmarsson wrote:
>>Jørn Dahl-Stamnes wrote:
>>>How can a perl script find the absolute path to itself?
>>>
>>>I have tried to do a 'print $0;', but $0 only tells me the command used
>>>to invoke the script.
>>>
>>>What I need to find is the absolute path to the directory where the perl
>>>script is located.
>>
>> print $0 =~ /(.+)\//;
>
> $0 does not contain the absolute path. If I do a:
>
> cd ~/some_dir
> ./some_perl_script.pl
>
> $0 will contain "./some_perl_script.pl".
>
> What I need is to get exactly the same as the pwd command prints out.

Then, maybe, that is what you should use:

print qx(pwd);

>>Or more portable:
>>
>> use FindBin '$Bin';
>> print $Bin;
>
> Seems like I need to download some kind of module. FindBin is not installed
> at my system.

Strange, since it's part of the standard Perl distribution.

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

Jørn Dahl-Stamnes wrote:
> How can a perl script find the absolute path to itself?
>
> I have tried to do a 'print $0;', but $0 only tells me the command used to
> invoke the script.
>
> What I need to find is the absolute path to the directory where the perl
> script is located.
>
> --
> Jørn Dahl-Stamnes
> http://www.dahl-stamnes.net/dahls/

You do not mention which OS you are using.
If you are on a Win32 system, you can use the Win32::GetFullPathName
instead of FindBin. Of course it would be less portable.

use strict;
use warnings;
use Win32;
use File::Basename;
my $tmp = dirname( "$0" );
my $runDir = Win32::GetFullPathName($tmp);

HTH, Ken

Gunnar Hjalmarsson wrote:

> Then, maybe, that is what you should use:
>
> print qx(pwd);

THANKS...

>>>Or more portable:
>>>
>>> use FindBin '$Bin';
>>> print $Bin;
>>
>> Seems like I need to download some kind of module. FindBin is not
>> installed at my system.
>
> Strange, since it's part of the standard Perl distribution.

Yes... I agree. The machine is using FC4.

--
Jørn Dahl-Stamnes
http://www.dahl-stamnes.net/dahls/

kens wrote:

>
> Jørn Dahl-Stamnes wrote:
>> How can a perl script find the absolute path to itself?
>>
>> I have tried to do a 'print $0;', but $0 only tells me the command used
>> to invoke the script.
>>
>> What I need to find is the absolute path to the directory where the perl
>> script is located.
>>
>> --
>> Jørn Dahl-Stamnes
>> http://www.dahl-stamnes.net/dahls/
>
> You do not mention which OS you are using.

Sorry. That was a *big* mistake of me. I'm using Fedora Core 4.

--
Jørn Dahl-Stamnes
http://www.dahl-stamnes.net/dahls/

"Jørn Dahl-Stamnes" <> wrote in message
news:...
> Gunnar Hjalmarsson wrote:
>
>> Jørn Dahl-Stamnes wrote:
>> Or more portable:
>>
>> use FindBin '$Bin';
>> print $Bin;
>
> Seems like I need to download some kind of module. FindBin is not
> installed
> at my system.

If you have FC4, then your Perl installation is broken if FindBin is
missing. Show us the exact error message you received.



--
Posted via a free Usenet account from http://www.teranews.com

"Jørn Dahl-Stamnes" <> wrote in message
news:...
> Gunnar Hjalmarsson wrote:
>
>> Then, maybe, that is what you should use:
>>
>> print qx(pwd);
>
> THANKS...

The above will give you incorrect results. You originally stated "How can a
perl script find the absolute path to itself?"

Running pwd will just return your current working directory, which may or
may not be the same path as where the Perl script lives.

The correct answer is still to use the FindBin module, however, we'll need
to work out why your Perl installation is broken first.



--
Posted via a free Usenet account from http://www.teranews.com

Jørn Dahl-Stamnes wrote:

>> You do not mention which OS you are using.
>
> Sorry. That was a *big* mistake of me. I'm using Fedora Core 4.

mathras> cat /etc/redhat-release
Fedora Core release 4 (Stentz)
mathras> locate FindBin
/usr/lib/perl5/5.8.6/FindBin.pm