Windows - dirname(__FILE_

demichi has asked for the wisdom of the Perl Monks concerning the following question:

Dear Monks,

I have the following code.

use strict;
use warnings;
use File::Basename;
my $script_dirname = dirname(__FILE__);
print "dirname: $script_dirname\n";
[download]

When I run the script I get the following output:

C:\Data\scripting\misc>path_test.pl
dirname: C:\Data\scripting\misc
C:\Data\scripting\misc>
[download]

This is what I expect. I get the full path of the directory. All is good.

However when I run the script with the interpreter I get the following:

C:\Data\scripting\misc>perl path_test.pl
dirname: .
C:\Data\scripting\misc>
[download]

I just get the "." for the current directory.

Why is this the case? How can I always get easily the full path of the directoy where my script is running - no matter how the user calls the script?

(It must work on Windows and would be nice if this also runs on Unix).

Thanks for your help.

regards deMichi

Comment on Windows - dirname(__FILE__) Select or Download Code

Replies are listed 'Best First'.
Re: Windows - dirname(__FILE__) by demichi (Beadle) on Apr 11, 2014 at 11:51 UTC
Might that be an idea? `use strict; use warnings; use Cwd 'abs_path'; use File::Basename; my $script_dirname = dirname(abs_path($0)); print "dirname: $script_dirname\n";` [download] Output `C:\Data\scripting\misc>path_test.pl dirname: C:/Data/scripting/misc C:\Data\scripting\misc>perl path_test.pl dirname: C:\Data\scripting\misc C:\Data\scripting\misc>` [download] Just a bit strange for me that it change / to \ when using the interpreter ...	[reply] [d/l] [select]
Re: Windows - dirname(__FILE__) by choroba (Cardinal) on Apr 11, 2014 at 12:31 UTC
Are you looking for FindBin? `use FindBin; print "Script running from ", $FindBin::Bin, "\n";` [download] لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]
Re: Windows - dirname(__FILE__) ( Path::Tiny::path(__FILE__)->realpath->parent by Anonymous Monk on Apr 11, 2014 at 21:46 UTC
Path::Tiny `use Path::Tiny qw/ path /; my $thisfile = path( __FILE__ )->realpath; my $thisdir = path( $thisfile )->parent;` [download]	[reply] [d/l]
Re: Windows - dirname(__FILE__) by fishy (Friar) on Apr 11, 2014 at 16:48 UTC
While your script don't chdir() `#!/usr/bin/perl use strict; use warnings; use Cwd; my $script_dirname = cwd; print "dirname: $script_dirname\n";` [download]	[reply] [d/l]
Re^2: Windows - dirname(__FILE__) by aitap (Curate) on Apr 11, 2014 at 17:53 UTC
Sadly, this won't work when script is called from another directory by full path: `$ pwd /home/aitap $ cat /tmp/1.pl #!/usr/bin/perl use strict; use warnings; use Cwd; my $script_dirname = cwd; print "dirname: $script_dirname\n"; use Cwd 'abs_path'; use File::Basename; $script_dirname = dirname(abs_path($0)); print "script dirname: $script_dirname\n"; $ perl /tmp/1.pl dirname: /home/aitap script dirname: /tmp` [download]	[reply] [d/l]