/ Регистрация

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

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

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

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

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

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

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

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

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

    Nekto Почётный

    5.709
    0

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

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

    998
    0
    Nekto

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

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

    AlTk Читатель

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

    paraNoId Участник

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

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

    998
    0
    Всем

    Большое спасибо за помощь!
     
Статус темы:
Закрыта.
un 321si 00d | ASUS Prime H610M-A D4-CSM | Интегрируй приложения вместе с Альбато: Miro Яндекс.Маркет - синхронизация за 5 минут! | садовый диван | 23 апреля я люблю эту жизнь