Forum Webscript.Ru

Программирование => Perl => Тема начата: aster_x от 19 Сентября 2005, 19:55:38

Название: Модули и require
Отправлено: aster_x от 19 Сентября 2005, 19:55:38

Есть такая проблема:

имеется модуль Base.pm
#####################
...

sub connect{
  my (%data) = @_;
  ...
  require "$data{b_type}";  # В данном случае подключаем \'mysql.pl\';
  ...
}

######################


и "mysql.pl"
######################

sub connectdb{
  ...
  my $self = {};
  ...
  return $self;
}
######################

Вопрос: как из connect вызвать connectdb так, чтобы
$self имел принадлежность к классу Base?


Заранее признателен за любые ответы..

Название: Модули и require
Отправлено: ondr от 20 Сентября 2005, 01:14:19

могу дать совет: начни с простых примеров, более простых. они есть почти в любой книжке по Perl.

Название: Модули и require
Отправлено: aster_x от 20 Сентября 2005, 18:04:18

Цитировать

ondr:
могу дать совет: начни с простых примеров, более простых. они есть почти в любой книжке по Perl.

Да ты не понял - Когда все функции находятся в Base.pm - все нормально:
и bless итп, а вот если я там делаю require, а вызываю как метод классы - Хрен..

Название: Модули и require
Отправлено: Anarki от 26 Сентября 2005, 21:47:25

require "$data{b_type}";
А это точно сработает, вроде бы на стадии компиляции модули подключаются?

Название: Модули и require
Отправлено: Chs от 28 Сентября 2005, 15:56:03

perldoc -f bless :)

bless REF,CLASSNAME
bless REF
Почувствуй разницу.:)