Whats my current directory? 2

[Nebbish]

Hey all, kind of an easy question. I have a perl script which I've compiled into a .exe. When I execute it, it naturally sets its directory to the one the .exe is found in. This is fine. However, I want to know exactly what this directory is. For example, my script (.exe) file is under:

C:/Bob/Hope/myScript.exe

I execute it, and can open files in its present directory by doing things like

open(FILE, "< someFile.txt");

But, I want to know the directory structure leading up to the current directory (ie, in this case, C:/Bob/Hope/).

Anyone know?

-Nick

 

[mikevh]

use Cwd qw(getcwd); print getcwd;

 

[dmazzini]

my $script = $0;
$script =~ s/^[\.\/\\]+//;
$ABSOLUTE_PATH = `pwd`;
chomp($ABSOLUTE_PATH);
$ABSOLUTE_PATH .= "/" . $script;
if ($ABSOLUTE_PATH =~ /(.*)\/([\w]+.exe)/) {
$ABSOLUTE_PATH = $1;
$script = $2;
}

 

[dmazzini]

In unix:

my $script = $0;
$script =~ s/^[\.\/\\]+//;
$ABSOLUTE_PATH = `pwd`;
chomp($ABSOLUTE_PATH);
$ABSOLUTE_PATH .= "/" . $script;
if ($ABSOLUTE_PATH =~ /(.*)\/([\w]+.exe)/) {
$ABSOLUTE_PATH = $1;
$script = $2;
}