c:\@Work\Perl\junque>perl -wMstrict -le
"use FindBin;
use lib qq{$FindBin::Bin/../monks};
;;
print qq{$FindBin::Bin};
printf qq{'$_' } for @INC;
"
c:/@Work/Perl/junque
'c:/@Work/Perl/junque/../monks' 'C:/strawberry/5.12/perl/site/lib' 'C
+:/strawberry/5.12/perl/vendor/lib' 'C:/strawberry/5.12/perl/lib'
'.'
Update:
I use the the FindBin command to find my current working directory ...
Note that the current working directory and the directory in which the script resides (returned by FindBin) may only be the same by chance. For the reliable current working directory, use something like Cwd.
|