Объясните пожалуйста множественное наследование и как им пользоваться.
Объясните смысл строк:

Код

my $proto = shift; my $class = ref($proto) || $proto;

(Это создание нового объекта).
И зачем нужны массивы @EXPORTER_OK и @EXPORTER и различие между ними?
Заранее спасибо.

Цитата

Объясните пожалуйста множественное наследование и как им пользоваться.

Слишком пространственно, найди учебник по ООП.
Но принцип такой: Один класс может наследовать методы другого класса.
Допустим в следующем примере класс Horse становится подклассом Critter ( @ISA объявляем через our, а не через my, так как он должен быть переменной пакета, а не лексической переменной.

Код

package Horse; our @ISA  = "Critter";

Допустим что в $steed находится объект Horse, и ты вызываешь с ним метод move:

Код

$steed->move(10);

Поскольку $steed яляется объектом Horse, Perl сначала ищет для этого метода подпрограмму Horse::move. Если такой не найден, то Perl обращается к массиву @Horse::ISA, который отправляет его в пакет Critter в поисках Critter::move. Если и эта подпрограмма не найдена, то и в нём начинается поиск имени пакета предка, который могбы предоставить метод move(), и так будет продолжаться движение по иерархии наследования до достижения пакета в котором нет @ISA.
PS: ( Пример и книги "Программирование на Perl" ).

Цитата

Объясните смысл строк: my $proto = shift; my $class = ref($proto) || $proto;

Это часть конструктора.
В строке 1 переменной $proto присваивается значение из массива @_.
В строке 2 переменной $class присваиваем значение объекта или имя класса, эту строку можно было записать так:

Код

my $class; if ( ref( $proto ) ) {       # Если $proto является объектом     $class = ref( $proto ); # Присваиваем этот объект переменной $class } else {     $class = $proto; }

Вот пример работающего конструктора:

Код

sub new {      my $proto = shift; # Получили переданный параметр      my $class = ref($proto) || $proto;      my $self = {};      # Переменной $self присваиваем ссылку на анонимный хэш.      bless( $self, $class ); # Посвящаем $self к объекту или классу.      return $self; }

Цитата

И зачем нужны массивы @EXPORTER_OK и @EXPORTER и различие между ними?

Эти массивы нужны при создании модулей, для экспортирования функций в пространство имён программы которая вызвала данный модуль обычно это main.

PS: Задавай в 1 топике, 1 вопрос. Иначе модераторы будут иметь не довольный вид. ;)

Удачи.

korob2001 , спасибо. Я примерно понял . А за совет на счет топика тоже спасибо...