PDA

Просмотр полной версии : Отцы Perl, подскажите функции работы с путями, очень надо.



Носферату
31.12.2004, 12:46
Нужна функция с помощью которой можно проверить существование пути. На самом деле проблемма намного больше, работаю в винде, но поставил пакет cygwin, так вот мне нужно узнать откуда пускают мой скрипт, чтобы я мог подключить либы которые лежат где-то рядом(я знаю где) ...
Пример
а делаю я это так my $path_root = cwd();

/cygdrive/c/Documents and Settings/shiryaev/1/lib - здесь лежат либы

/cygdrive/c/Documents and Settings/shiryaev/1/Scripts - вот я получаю путь где лежит скрипт,

обрезаю до
/cygdrive/c/Documents and Settings/shiryaev/1

потом говорю
use lib ($path_root.'/lib');

но перл ругается не может он этого найти.

chur
04.01.2005, 12:51
Посмотри модуль FindBin. Наверно, поможет.