|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Alex Krivospitsky 2:5023/37.13 10 Mar 2003 11:19:08 To : Renat Araslanow Subject : классы -------------------------------------------------------------------------------- Как-то ночью 10 Мар 03 , Renat Araslanow писал мне AK>> можно ли узнать есть ли в данном классе данная функция? RA> в классах функций нет. есть методы. а что значит это: A Method is Simply a Subroutine RA> если под "классом" подразумевается всё-таки объект (blessed ref), то RA> perldoc UNIVERSAL (can) RA> иначе (ИМХО) RA> eval {Class::method()}; спасибо.... to all: вообщем мне все это надо для написания программы с плагинами. щас делаю так: sub LoadPlugins { opendir DIR, 'plugins'; my @plugins_files=grep {/.+\.pm$/} readdir DIR; closedir DIR; foreach my $plugin_name (@plugins_files) { $plugin_name="plugins::$plugin_name"; $plugin_name=~s/\.pm$//; eval "use $plugin_name"; my $plugin=new $plugin_name($config_name, \%areas, \%links); push @plugins, $plugin; } } а каждый плагин представляет собой класс с определенными методами, которые по мере необходимости вызываются: foreach my $plugin (@plugins) { $plugin->Startup; } но как таковые классы здесь не нужны, может есть какой другой способ? А вообще спать еще нада. *Шурик*. --- *=[ TEAM* _ITD_ *]=[ TEAM* _Beer_ *]=[ TEAM* _ВыСПаТьСя Бы_ *]=* * Origin: *+79036960762* _alex_itd@mail.ru_ (2:5023/37.13) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/33073e6c3e41.html, оценка из 5, голосов 10
|