В сообщении от Понедельник 23 мая 2011 19:10:50 автор Aleksander Gorohovski написал:
> Подскажите, > как можно организовать чтение, например, > внешнего конфиг-файла модуля my_modul.cfg > (содержащего некоторые его настройки) из > самого модуля? > > Понятно, что открыть его надо через, например, > open FILE, "/path/my_modul.cfg"; > и затем читать. > Но проблема в том, как определить путь /path , > куда в системе был установлен модуль (например, через cpan) > с его конфиг-файлами? Я использую такую конструкцию: use File::Spec; my ($config_file) = grep(-r $_, map(File::Spec->catdir($_, qw(My Module some.cfg)), @INC)) or die; Правда, она смотрит не на расположение текущего модуля, а ищет во всём @INC. -- Alexander Lourier, http://aml.rulezz.ru/ -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
