How do you determine current directory? Newbie question

[rmtsmith]

I am a newbie and I can not find a method for determining what drive and directory my perl script is running from. I am running in Win2K and will be sharing the directory so the drive designation will change.

 

[icrf]

use Cwd;
my $current_working_directory = cwd;

http://search.cpan.org/author/JHI/perl-5.8.0/lib/Cwd.pm

Hope it helps.

----------------------------------------------------------------------------------
...but I'm just a C man trying to see the light

 

[rmtsmith]

Yes - that helps but in Windows, it returns the wrong slant-
n:\scripts
rather than
n:/scripts

is there a way to get it correctly for windows?

 

[icrf]

Actually, in perl (even in windows), you can use either (keeps from having double slashes everywhere). If you're storing them to use elsewhere, you can use a short regex to swap them:

$current_working_directory = cwd();
$current_working_directory =~ tr/\//\\/;
print $current_working_directory;

----------------------------------------------------------------------------------
...but I'm just a C man trying to see the light

 

[rmtsmith]

Thanks.