Perl : определение каталога в котором находишся Есть проблемка: определение текущего местоположения (каталога). В коде периодически приходится сменяться из каталога в каталог через chdir. А потом методом тыка (проверкой наличия файла "такого-то в каждом каталоге") начинаю выяснять, в каком же я каталоге. Понимаю что способ дурацкий, но как лучше пока не знаю. То посоветуете? Как нибудь можно получить имя текущего каталога и/или полный адрес от корневого каталога сайта до текущего каталога. Правда есть один вариант - переменные окружения. Что скажете, народ?
Nekto Ну если ничего друо нет, то вопросов нет. Но если есть, то почему бы и нет - ведь с переменными окружения нужно выделять имя каталога из общего написанного. Т.е. приходиться дополнительно обращаться к регулярным выражениям. Так что, 2-го не дано?
если процесс выполняется под Windows и из Perl можно вызвать функции API, то можно воспользоваться функцией GetCurrentDirectory Код: DWORD GetCurrentDirectory( DWORD nBufferLength, LPTSTR lpBuffer );