how to get the current folder name where the program is running?

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

Replies are listed 'Best First'.
Re: how to get the current folder name where the program is running? by Roger (Parson) on Dec 13, 2003 at 04:32 UTC
You could use the CORE module File::Spec::Functions to retreive the name of the parent directory of the perl script, in a portable way that works under both Windows and Linux/Unix. It works even when your current working directory is not the same as the directory of the perl script. `#!/usr/local/bin/perl -w use strict; use File::Spec::Functions qw/ splitdir rel2abs /; my $parent_dir = (splitdir(rel2abs($0)))[-2]; print "$parent_dir\n";` [download]	[reply] [d/l]
Re: Re: how to get the current folder name where the program is running? by exussum0 (Vicar) on Dec 13, 2003 at 13:01 UTC
To ammend your reply, use $0 (which the parent did), not cwd() (which many recommend), since $0 has the full name of the running script and cwd is where the script was run from. If you aren't in that directory where it was run, cwd fails miserably. From perlvar.... $0 Contains the name of the program being executed. On some oper- ating systems assigning to `$0' modifies the argument area that the ps program sees. This is more useful as a way of indicat- ing the current program state than it is for hiding the program you're running. (Mnemonic: same as sh and ksh.) Update: Ug.. as tachyon showed, it doesn't always work. Try /procfs, it should tell you what file you are currently running.. though windows and osx doesn't have that. Play that funky music white boy..	[reply]
Re: Re: Re: how to get the current folder name where the program is running? by tachyon (Chancellor) on Dec 13, 2003 at 14:00 UTC
So you tested this right? [root@smart sporty]# pwd /root/sporty [root@smart sporty]# cat uhuh.pl #!/usr/bin/perl print "$0 does not know\n", `pwd`; [root@smart sporty]# ./uhuh.pl ./uhuh.pl does not know /root/sporty [root@smart sporty]# perl uhuh.pl uhuh.pl does not know /root/sporty [root@smart sporty]# [download] If you aren't in that directory where it was run, cwd fails miserably. And if (you) don't call the script with /full/path/to/script.pl then $0 has little to offer.... cheers tachyon	[reply] [d/l]
Re: Re: Re: Re: how to get the current folder name where the program is running? by exussum0 (Vicar) on Dec 13, 2003 at 16:41 UTC
Re: Re: how to get the current folder name where the program is running? by Anonymous Monk on Dec 13, 2003 at 20:43 UTC
Did you peek inside FindBin? You're basically starting to reinvent FindBin :)	[reply]
Re: how to get the current folder name where the program is running? by Anonymous Monk on Dec 13, 2003 at 04:22 UTC
use FindBin;	[reply]
Re: how to get the current folder name where the program is running? by etcshadow (Priest) on Dec 13, 2003 at 04:32 UTC
`use Cwd; my ($bottomdir) = cwd() =~ m\|([^/]*)$\|;` [download] ------------ :Wq Not an editor command: Wq	[reply] [d/l]
Re: how to get the current folder name where the program is running? by tachyon (Chancellor) on Dec 13, 2003 at 04:26 UTC
`use Cwd; print cwd();` [download] cheers tachyon	[reply] [d/l]
Re: Re: how to get the current folder name where the program is running? by exussum0 (Vicar) on Dec 13, 2003 at 12:56 UTC
Wrong. This gets you the directory you are currently in, your current working dir. If I do /Users/sporty/t.pl, and I'm in /Applications, I'd get /Applications, not /Users/sporty/t.pl Play that funky music white boy..	[reply]
Re: how to get the current folder name where the program is running? by traxlog (Scribe) on Dec 13, 2003 at 11:43 UTC
$ENV{'SCRIPT_FILENAME'} and some regex wizardry always works for me! -2 votes May I ask why? Maybe I'll learn something too. Update: For those of you arriving at my node via a search please note it is NOT the right answer, see rest of thread Thanks for the enlightenment Joost and Anon! Indeed something learned!	[reply]
Re: Re: how to get the current folder name where the program is running? by Joost (Canon) on Dec 13, 2003 at 20:31 UTC
I guess because: `#!/usr/bin/perl print "$ENV{SCRIPT_FILENAME}\n";` [download] Prints an empty line when not run as a CGI program. Its useful in a CGI progam though, and it's in the CGI specs so it might be more portable in that situation than the other methods specified above. actually, I kinda like the suggestion - traxlog++ :-) Joost "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l]
Re: Re: how to get the current folder name where the program is running? by Anonymous Monk on Dec 13, 2003 at 20:46 UTC
-2 votes May I ask why? Maybe I'll learn something too. Probably because your answer is wrong (hweefarn doesn't seem to be dealing with a CGI).	[reply]