VPF::Вызов функции с переменной частью в имени.

scamelscrud

Дата 6.5.2006, 21:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 6.5.2006

Репутация: нет
Всего: нет

Делаю сабж таким образом (по другому не знаю как):

Код


my $module = "Modules::MyModule";
eval "use $module";
eval "${module}::start();";

Дальше пытаюсь передать параметр

Код


my %params = (
param1=> value1,
param2=> value2
);
my $module = "Modules::MyModule";
eval "use $module";
eval "${module}::start(\%params);";

Так работать не хочет. Где копать? Как еще можно функцию с переменной частью в имени вызвать?

shootnix

Дата 6.5.2006, 21:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 108
Регистрация: 3.9.2005
Где: Казахстан

Репутация: 2
Всего: 2

по-моему, так правильней:

Код


eval "${$module}::start(\%params);";

scamelscrud

Дата 6.5.2006, 22:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 6.5.2006

Репутация: нет
Всего: нет

Попробовал вот так:

Код


my %params = (
param1=> value1,
param2=> value2
);
my $module = "Modules::MyModule";
eval "use $module";
my $func = "${module}::start";
&$func(\%params);

Но с use strict; работать не будет=\

Добавлено @ 22:08
2shootnix имхо, так как раз не правильно.

scamelscrud

Дата 7.5.2006, 10:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 6.5.2006

Репутация: нет
Всего: нет

В общем погуглил, поэксперементировал..

Код


use strict;
my %params = (
param1=> value1,
param2=> value2
);
my $module = "Modules::MyModule";
eval "use $module";
&{\&{"${module}::start"}}($params);

Все работает даже без eval:)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »