Perl Script, Know Thyself?

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

Hello Monks:

I have users that wish to use a script that can determine it's own location after they have copied the original script to some location of their choice. I'm assuming they want to report the location of the script to some form of output. The users are being vague about this.

Is there a function or script technique to affect this result? I've looked around on nntp.perl.org, cpan & google and nothing stands out as to what I am looking for.

Any guidance / help would be appreciated. Thank you everyone.

Comment on Perl Script, Know Thyself?

Replies are listed 'Best First'.
Re: Perl Script, Know Thyself? by jdporter (Paladin) on Apr 14, 2007 at 17:57 UTC
See $0 in perlvar. Also see FindBin. (but note) Also, it turns out that there is an entry for this in our Categorized Questions and Answers library: How do I get the full path to the script executing? A word spoken in Mind will reach its own level, in the objective world, by its own weight	[reply]
Re^2: Perl Script, Know Thyself? by merlyn (Sage) on Apr 14, 2007 at 21:07 UTC
See FindBin is broken (RE: How do I get the full path to the script executing?). -- Randal L. Schwartz, Perl hacker	[reply]
Re: Perl Script, Know Thyself? by shmem (Chancellor) on Apr 14, 2007 at 18:53 UTC
You could... `use Cwd qw(abs_path); my $location = abs_path($0); print "Location: $location\n";` [download] --shmem _($_=" "x(1<<5)."?\n".q·/)Oo. G°\ / /\_¯/(q / ---------------------------- \__(m.====·.(_("always off the crowd"))."· ");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}	[reply] [d/l]

Back to Seekers of Perl Wisdom