Forum Webscript.Ru

Программирование => Perl => Тема начата: OtherDima от 16 Марта 2006, 17:30:36

Название: подключать pm по мере необходимости
Отправлено: OtherDima от 16 Марта 2006, 17:30:36

есть скрипт и несколько pm
в принципе все pm построены одинакого
вот только данные выдаваемые имим разные

в результате хочется
если я вызову cgi срипт с параметром pm=1
то подключиться один из pm и уже буду вызываться функции оттуда
если pm=2 то функция с тем же именем будет вызываться с pm закрепленным за номером два

вопрос:
будет ли компилятор проверять весь код
соответственно натолкнувшись на подключение всех pm (в IF)
и тоже проверит их (видь в каждом pm будут одиннаковые функции)?
:))

Название: подключать pm по мере необходимости
Отправлено: arto от 16 Марта 2006, 17:39:15

perldoc -f require

Название: подключать pm по мере необходимости
Отправлено: Phoinix от 16 Марта 2006, 19:16:54

OtherDima

Можно и так:

...
my $obj;

if ($pm == 1) {
    eval "use PM1; $obj = new PM1;";
} elsif ($pm == 1) {
    eval "use PM2; $obj = new PM2;";
} ...
$obj->method();
...


Все зависит от реализации скрипта...