[perl] подключение библиотеки с относительным путем.

Teteshnik

Marinavo_0507

Teteshnik

tokuchu

if ($0 =~ m%^(.*)/%) { unshift(@INC, $1.'/../lib'); } 

else { unshift(@INC, '../lib'); }

Teteshnik

Sharp

Teteshnik

use Cwd;



use File::Basename;

BEGIN {

 my $dir = dirname($0);

  my $path;

  if ($dir =~ /^\//) {

    #--absolute path

    $path = $dir;

  } elsif ($dir eq ".") {

    #-- relative, current dir

    $path = getcwd;

  } else {

    #-- relative, but not from current dir

    $dir =~ s/^\.\///;

    $path = getcwd."/$dir";

}

  unshift(@INC, $path.'/LIB');

}

Sharp

use FindBin;                # where was script installed?

use lib $FindBin::Bin;      # use that dir for libs, too

Teteshnik

Sharp

Teteshnik

rosali

Bibi

Sharp

ты как бы декларируешь что модуль "принадлежит" скрипту

Teteshnik

rosali

rosali

Sharp

rosali

use lib "$FindBin::Bin/LIB";

  

Barbie29

 #/usr/bin/perl -w



BEGIN

  {

    push @INC, "./blib/arch", "./blib/lib";

  }

etc...

 

#!/usr/bin/perl -w



use strict;

use Glib;

use Gtk2 -init;

use blib;  ########################### вот так выызывать

use Pixels;



etc...

Barbie29

ну use lib './LIB'; - тоже не помогает.
эээ... так, видимо мне нужно подключить мега библиотеку для определения текущего пути?

Barbie29

       @INC    The array @INC contains the list of places that the "do EXPR",

               "require", or "use" constructs look for their library files.

               It initially consists of the arguments to any -I command-line

               switches, followed by the default Perl library, probably

               /usr/local/lib/perl, followed by ".", to represent the current

               directory.  ("." will not be appended if taint checks are

               enabled, either by "-T" or by "-t".)  If you need to modify

               this at runtime, you should use the "use lib" pragma to get the

               machine-dependent library properly loaded also:



                   use lib '/mypath/libdir/';

                   use SomeMod;



               You can also insert hooks into the file inclusion system by

               putting Perl code directly into @INC.  Those hooks may be sub-

               routine references, array references or blessed objects.  See

               "require" in perlfunc for details.



       @_      Within a subroutine the array @_ contains the parameters passed

               to that subroutine.  See perlsub.



       %INC    The hash %INC contains entries for each filename included via

               the "do", "require", or "use" operators.  The key is the file-

               name you specified (with module names converted to pathnames

               and the value is the location of the file found.  The "require"

               operator uses this hash to determine whether a particular file

               has already been included.



               If the file was loaded via a hook (e.g. a subroutine reference,

               see "require" in perlfunc for a description of these hooks

               this hook is by default inserted into %INC in place of a file-

               name.  Note, however, that the hook may have set the %INC entry

               by itself to provide some more specific info.

tokuchu

push @INC, "./blib/arch", "./blib/lib";

Barbie29

Сказали же, что нужен путь относительно скрипта, а не относительно cwd!

tokuchu

не зная положение скрипта путь к библиотеке относительно скрипта вычислить невозможно

Teteshnik