1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.

Perl : определение каталога в котором находишься

Тема в разделе "Программирование", создана пользователем ViT, 22.07.05.

Статус темы:
Закрыта.
  1. ViT

    ViT Активный участник

    998
    0
    Perl : определение каталога в котором находишся

    Есть проблемка: определение текущего местоположения (каталога).
    В коде периодически приходится сменяться из каталога в каталог через chdir.
    А потом методом тыка (проверкой наличия файла "такого-то в каждом каталоге") начинаю выяснять, в каком же я каталоге.

    Понимаю что способ дурацкий, но как лучше пока не знаю.
    То посоветуете? Как нибудь можно получить имя текущего каталога и/или полный адрес от корневого каталога сайта до текущего каталога.

    Правда есть один вариант - переменные окружения.

    Что скажете, народ?
     
  2. Nekto

    Nekto Почётный

    5.710
    0

    А что еще надо? :)
     
  3. ViT

    ViT Активный участник

    998
    0
    Nekto

    Ну если ничего друо нет, то вопросов нет.
    Но если есть, то почему бы и нет - ведь с переменными окружения нужно выделять имя каталога из общего написанного. Т.е. приходиться дополнительно обращаться к регулярным выражениям.

    Так что, 2-го не дано?
     
  4. AlTk

    AlTk Читатель

    10.692
    0
    если процесс выполняется под Windows и из Perl можно вызвать функции API, то можно воспользоваться функцией GetCurrentDirectory
    Код:
    DWORD GetCurrentDirectory(
      DWORD nBufferLength,
      LPTSTR lpBuffer
    );
    
     
  5. paraNoId

    paraNoId Участник

    236
    0
    Код:
    chomp($cwd = `pwd`);
     
  6. ViT

    ViT Активный участник

    998
    0
    Всем

    Большое спасибо за помощь!
     
Статус темы:
Закрыта.