Re: Current Directory

This will do the trick (get the directory of $0, then get the directory of that):

use File::Basename;
my $curr_dir = dirname(dirname($0)) . '/';
[download]

Comment on Re: Current Directory Select or Download Code

Replies are listed 'Best First'.
Re^2: Current Directory by Anonymous Monk on Sep 14, 2005 at 13:46 UTC
Could I manipulate that going on directory UP instead?	[reply]
Re^3: Current Directory by davidrw (Prior) on Sep 14, 2005 at 14:11 UTC
"UP"? do you mean universal path (i.e. absolute path)? if so, then yes, just convert the directory that `$0` is in to a absolute path first: `use File::Basename; use Cwd 'abs_path'; my $curr_dir = dirname(abs_path dirname($0)) . '/';` [download]	[reply] [d/l] [select]