- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #3968 [639]
От : Artem Chuprina 2:5020/400 05 июля 04, 17:59
Кому : Dmitry Grebeniuk 08 июля 04, 21:16
Тема : Re: поиск модулей в директории скрипта
-------------------------------------------------------------------------------
From: Artem Chuprina
Dmitry Grebeniuk -> All @ Mon, 05 Jul 2004 14:46:14 +0400:
DG> Сейчас у меня такая ситуация: есть скрипты и модули, которые я не хочу
DG> хранить в стандартных директориях @INC. Скрипты используют модули. В
DG> начале каждого скрипта стоит use lib "c:/my/dir". Теперь же мне
DG> захотелось использовать эти скрипты с другой машины: perl
DG> \\myhost\c$\my\dir\thescript.pl. Однако оно не находит модули. Конечно,
DG> сделал use lib "\\\\myhost\\c\$\\my\\dir", но довольно-таки долго
DG> запускается скрипт. Сделал другой изврат: my $selfdir=$0; $selfdir =~
DG> s|[/\\][^/\\]+$|| or $slfdir = "."; do "$selfdir\\Module1.pm"; do
DG> "$selfdir\\Module2.pm"; но ведь это действительно изврат, и мне он не
DG> нравится. Как решить проблемы наиболее: 1) эффективно с точки зрения
DG> скорости запуска и гибкости, 2) правильно?
use FindBin;
use lib $FindBin::Bin;
--
Artem Chuprina
RFC2822: , FIDO: 2:5020/122.256, ICQ: 13038757
--- ifmail v.2.15dev5.3
* Origin: Leninsky 45 home network (2:5020/400)