Get Invoked Script Location in Perl

[fiorentico]

Hi,

I'd like to obtain the location of the script I am calling. E.g.

If I am calling

perl X:\script.pl

I want to obtain "X:\". How do I do that?

getcwd and cwd don't apply beacuse I am running the Script from another
location. Thanks

 

[David Squire]

Hi,

I'd like to obtain the location of the script I am calling. E.g.

If I am calling

perl X:\script.pl

I want to obtain "X:\". How do I do that?

getcwd and cwd don't apply beacuse I am running the Script from another
location. Thanks

See perldoc perlvar. Look for the string "Contains the name of the
program being executed".


DS

 

[Ben Morrow]

See perldoc FindBin.

AFAIK, the contents of $0 are OS dependent.

They are, and IIRC FindBin doesn't always work on Windows (in
particular, if the program was found through the PATH then $0 contains
just the program name, and FindBin fails). They may have fixed it by
now, of course...

Ben