Dear colleagues,

The script doesn't know how deep in the directory tree it lies: in '/***/monkeyman/bin' or in '/***/monkeyman/bin/test', but it needs to know it as it needs to load modules from /***/monkeyman/lib.

It seems it can't perform any regex matching before the compiler loads all libraries, am I right? Because, as I see, it doesn't... 

use FindBin qw($Bin);
if($Bin =~ /^(\/.+\/monkeyman\/bin)(\/.+)?/) {
   use lib("$1/lib");
}
use MonkeyMan;

Leads to: 

Use of uninitialized value $1 in concatenation (.) or string at ./someutil.pl line 9.
Can't locate MonkeyMan.pm in @INC (@INC contains: /lib /usr/local/lib64/perl5 /usr/local/share/perl5 /usr/lib64/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/lib64/perl5 /usr/share/perl5 .) at ./someutil.pl line 12.
BEGIN failed--compilation aborted at ./someutil.pl line 12.

As I see, the "use lib" line actually works: it adds "/lib" to @INC, but why doesn't it substitute $1?

How would you solve it? Is there any elegant way to find the root directory before loading libraries if the script doesn't know how deep in the directory tree it is?

Lots of thanks to all.

V.Melnik

In reply to Calculations before using lib; by v_melnik

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.