What directory perl script is being run from? - followup

[R D]

Thanks for quick reply.

Cwd didn't work because it gives what directory
you are currently in not the directory the script is in!

Can't get FindBin to work..any idea what's wrong with the following?

my $Bin;
use FindBin qw($Bin);
use lib "$Bin/../lib";
print $Bin;
My apologies for posting aout easy stuff but I don't use Perl
normally..just doing a quick hack to someone else's script!

Thanks again.

"Jürgen Exner" <ju******@hotmail.com> wrote in
news:_l**************@nwrddc01.gnilink.net:

R D wrote:

How do I get a *Windows* perl script to figure out what directory it is being run from/

perldoc Cwd

exists in?

perldoc FindBin

jue

[Roel van der Steen]

On Fri, 19 Mar 2004 at 16:11 GMT, R D <rk*@myrealbox.com> wrote:

Thanks for quick reply.

Cwd didn't work because it gives what directory
you are currently in not the directory the script is in!

Can't get FindBin to work..any idea what's wrong with the following?

You forgot to:

#!/usr/bin/perl
use strict;
use warnings;
my $Bin; ^^^^^^^
Oops! You just declared a lexical variable, obscuring
$FindBin::Bin that you are going to import in the next use
statement. You should have could this yourself because you
are using warnings, aren't you? Always, always "use strict"
and "use warnings".
use FindBin qw($Bin);
use lib "$Bin/../lib";
print $Bin;

Now it prints correctly the path where your script is located.