Finding the complete path of a file

[Tve]

Hi,

I an trying to obtain the full directory of a passed file to a perl script (NT platform).

If the passed file is provided with a full directory, eg: C:\scripts\perl.pl X:\transfer\foo.txt, I suppose I could split on "\" and manipulate this data.

But if the perl script is located in X:\transfer, then the path name would not be included in the passed file name, eg: X:\transfer\perl.pl foo.txt.

I've tried File::Basename; standad module, but this only returns a relative path.

use File::Basename;
$path = dirname($ARGV[0]);

Value for $path is .

I don't know where to look anymore. Does somebody have an idea?

 

[stillflame]

have you looked at the $ENV{'PATH'} entry? "If you think you're too small to make a difference, try spending a night in a closed tent with a mosquito."

 

[MikeLacey]

$0 gives you the directory and filename of the perl script you're running. If you chop the filename off it you will have the path to any files passed using just the filename on the command line. Is this what you mean? Mike
michael.j.lacey@ntlworld.com
Email welcome if you're in a hurry or something -- but post in tek-tips as well please, and I will post my reply here as well.

 

[stillflame]

ooo, my bad, sorry. ignore my post. "If you think you're too small to make a difference, try spending a night in a closed tent with a mosquito."

 

[MikeLacey]

<grin> Mike
michael.j.lacey@ntlworld.com
Email welcome if you're in a hurry or something -- but post in tek-tips as well please, and I will post my reply here as well.

 

[hinchdog]

i find that only gives me the filename, but this gives me the path

use Cwd;
$thisdir = cwd();

 

[tsdragon]

This should also work for getting your current working directory on a *nix system:

$thisdir = chomp `pwd`;

Tracy Dryden
tracy@bydisn.com

http://www.bydisn.com

Meddle not in the affairs of dragons,
For you are crunchy, and good with mustard.