[Moscow.pm] Чтение файлов модуля из модуля

[Alexander Lourier]

В сообщении от Понедельник 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/