Объектно-ориентированный Perl

В Perl существуют две разные реализации объектно-ориентированного программирования:

Один из них основан на методе анонимной хэш-таблицы. Суть каждого экземпляра объекта — это ссылка, указывающая на анонимную хеш-таблицу. В этой анонимной хэш-таблице хранятся все атрибуты экземпляра.

Второй — метод на основе массива. При определении класса мы создадим массив для каждого атрибута экземпляра, а суть каждого экземпляра объекта — это ссылка, указывающая на индекс строки в этих массивах. В этих массивах хранятся все свойства экземпляра.

Основные понятия объектно-ориентированного подхода

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

Объект : Объект — это ссылка на элемент данных в классе. .

Класс : Класс — это пакет Perl, содержащий классы, предоставляющие методы объекта.

Метод : метод представляет собой подпрограмму Perl, а имя класса является ее первым параметром.

Perl предоставляет функцию bless(). Bless используется для создания объектов. Bless связывает ссылку с именем класса и создает объект, возвращая ссылку.

Определение класса

Класс — это простой пакет.

Вы можете использовать пакет как класс, а функции пакета — как методы класса.

Пакеты Perl предоставляют независимые пространства имен, поэтому имена методов и переменных в разных пакетах не будут конфликтовать.

Расширение файлов классов Perl — .pm.

Далее мы создаем класс Person:

 пакет Человек;

Диапазон кода класса достигает последней строки файла сценария или перед следующим ключевым словом пакета.

Создавать и использовать объекты

Чтобы создать экземпляр (объект) класса, нам нужно определить конструктор. Большинство программ используют имя класса в качестве конструктора, но в Perl вы можете использовать любое имя.

В качестве объектов Perl можно использовать различные переменные Perl. Большую часть времени мы будем использовать ссылочные массивы или хеши.

Затем мы создаем конструктор для класса Person, используя ссылку на хэш Perl.

При создании объекта вам необходимо предоставить конструктор, который представляет собой подпрограмму, возвращающую ссылку на объект.

Примеры следующие:

Пример

упаковка Человек ; суб новый { мой $класс = сдвиг ; мой $self = { _firstName => сдвиг , _lastName => сдвиг , _ssn => сдвиг , } # Вывод информации о пользователе ; распечатать " Имя: $self ->{_firstName} n " печать ; " Фамилия: $self ->{_lastName} n " print ; " Число: $self ->{_ssn} n " ; $сам , $класс возврат ; $ себя }

Далее создаем объект:

 $object = new Person( "Сяо Мин", "王", 23234345);

Определить метод

Метод класса Perl — это просто подпрограмма Perl, известная как функция-член.

Определение метода Perl в объектно-ориентированном Perl не предоставляет никакого специального синтаксиса, но предусматривает, что первым параметром метода является объект или пакет, на который он ссылается.

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

Далее мы определяем метод для получения имени:

 sub getFirstName { return $self->{_firstName};}

Вы также можете написать так:

 sub setFirstName {my ($self, $firstName) = @_; $self->{_firstName} = $firstName, если определено ($firstName); return $self->{_firstName};}

Далее мы модифицируем код файла Person.pm следующим образом:

Пример

#!/usr/bin/perl упаковка Человек ; суб новый { мой $класс = сдвиг ; мой $self = { _firstName => сдвиг , _lastName => сдвиг , _ssn => сдвиг , } # Вывод информации о пользователе ; распечатать " Имя: $self ->{_firstName} n " печать ; " Фамилия: $self ->{_lastName} n " print ; " Число: $self ->{_ssn} n " ; $сам , $класс возврат ; $ себя } суб setFirstName { мой ( $self , $firstName ) = @_ ; $self -> { _firstName } = $firstName если определено ( $firstName ) ; возврат $self -> { _firstName } } ; суб getFirstName { мой ( $self ) = @_ ; возврат $self -> { _firstName } } ; 1 ;

Код сценария сотрудника.pl выглядит следующим образом:

Пример

#!/usr/bin/perl используйте Человек $ объект = новый Человек ( " Xiao Ming " , "王" , 23234345 ) # Получить имя ; $firstName = $object -> getFirstName ( ) печать ; " Установите предыдущее имя: $firstName n " # Используйте вспомогательные функции для установки имени ; $object -> setFirstName ( « Сяоцян » ) ; # Получите имя через вспомогательную функцию $firstName = $object -> getFirstName ( ) печать ; " Имя после установки: $firstName n " ;

После выполнения вышеуказанной программы результат вывода:

 $ perl сотрудник.pl Имя: Сяо Мин Фамилия: Ван Номер: 23234345 Имя до настройки: Сяо Мин Имя после настройки: Сяо Цян

наследовать

Методы классов в Perl наследуются через массив @ISA. Этот массив содержит имена других пакетов (классов). Наследование переменных должно быть задано явно.

Множественное наследование означает, что массив @ISA содержит несколько имен классов (пакетов).

Через @ISA можно наследовать только методы, а не данные.

Затем мы создаем класс «Сотрудник», который наследует класс «Человек».

Код файла «Сотрудник.pm» выглядит следующим образом:

Пример

#!/usr/bin/perl упаковка Сотрудник ; используйте Person ; используйте строгий ; @ISA = qw( Человек ) ; #Унаследовано от Человека

Теперь класс «Сотрудник» содержит все методы и свойства класса «Человек». Мы вводим следующий код в файл main.pl и выполняем его:

Пример

#!/usr/bin/perl используйте Сотрудник $ object = новый Сотрудник ( " Xiao Ming " , "王" , 23234345 ) # Получить имя ; $firstName = $object -> getFirstName ( ) печать ; " Установите предыдущее имя: $firstName n " # Используйте вспомогательные функции для установки имени ; $object -> setFirstName ( « Сяоцян » ) ; # Получите имя через вспомогательную функцию $firstName = $object -> getFirstName ( ) печать ; " Имя после установки: $firstName n " ;

После выполнения вышеуказанной программы результат вывода:

 $ perl main.pl Имя: Сяо Мин Фамилия: Ван Номер: 23234345 Имя до настройки: Сяо Мин Имя после настройки: Сяо Цян

Переопределение метода

В приведенном выше примере класс «Сотрудник» наследует класс «Человек», но если методы класса «Человек» не могут удовлетворить потребности, его методы необходимо переписать.

Затем мы добавим несколько новых методов в класс «Сотрудник» и переопределим методы класса «Человек»:

Пример

#!/usr/bin/perl упаковка Сотрудник ; используйте Person ; используйте строгий ; @ISA = qw( Человек ) ; #Унаследовано от Человека # Переопределить конструктор суб новый { мой ( $class ) = @_ # Вызов конструктора родительского класса мой $self = $class -> СУПЕР :: новый ( $_ [ 1 ] , $_ [ 2 ] , $_ [ 3 ] ) ; # Добавляем дополнительные атрибуты $self -> { _id } = undef ; $ self -> { _title } = undef ; $сам , $класс возврат ; $ себя } # Метод переопределения суб getFirstName { мой ( $self ) = @_ # Это функция подкласса распечатать « Это функция подкласса n » return ; $self -> { _firstName } } ; # Добавить метод суб setLastName { мой ( $self , $lastName ) = @_ ; $self -> { _lastName } = $lastName если определено ( $lastName ) ; возврат $ self -> { _lastName } ; суб получить фамилию { мой ( $self ) = @_ ; возврат $ self -> { _lastName } ; 1 ;

Вводим следующий код в файл main.pl и выполняем его:

Пример

#!/usr/bin/perl используйте Сотрудник $ object = новый Сотрудник ( " Xiao Ming " , " Wang " , 23234345 ) # Получаем имя, используем модифицированный конструктор ; $firstName = $object -> getFirstName ( ) печать ; " Установите предыдущее имя: $firstName n " # Используйте вспомогательные функции для установки имени ; $object -> setFirstName ( « Сяоцян » ) ; # Получите имя через вспомогательную функцию $firstName = $object -> getFirstName ( ) печать ; " Имя после установки: $firstName n " ;

После выполнения вышеуказанной программы результат вывода:

 $ perl main.pl Имя: Сяо Мин Фамилия: Ван Номер: 23234345 Это имя функции подкласса до установки: Сяо Мин Это имя функции подкласса после установки: Сяоцян

Загружено по умолчанию

Если запрошенный метод не найден в текущем классе, во всех базовых классах текущего класса и классе UNIVERSAL, снова выполняется поиск метода с именем AUTOLOAD(). Если AUTOLOAD найден, он вызывается, и глобальной переменной $AUTOLOAD присваивается полное имя отсутствующего метода.

Если это не сработает, Perl завершится с ошибкой.

Если вы не хотите наследовать AUTOLOAD базового класса, это очень просто, всего одно предложение:

 суб АВТОЗАГРУЗКА;

Деструктор и сбор мусора

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

Если вы хотите что-то сделать во время разрушения, вы можете определить в классе метод с именем «DESTROY». Он будет автоматически вызываться в нужный момент и выполнять дополнительные действия по очистке по вашему желанию.

 package MyClass;...sub DESTROY{ print "MyClass::DESTROY calln";}

Perl передаст ссылку на объект в качестве единственного параметра функции DESTROY. Обратите внимание, что эта ссылка доступна только для чтения, что означает, что вы не можете изменить ее, обратившись к $_[0]. (Примечание переводчика: см. perlsub). Но сам объект (например, «${$_[0]» или «@{$_[0]}» и «%{$_[0]}» и т. д.) может все еще быть Написанным.

Если вы повторно благословите ссылку на объект до того, как деструктор вернется, Perl вызовет метод DESTROY объекта, который вы повторно благословили, после возвращения деструктора. Это дает вам возможность вызвать деструктор базового класса или других указанных вами классов. Следует отметить, что DESTROY также можно вызвать вручную, но обычно в этом нет необходимости.

После освобождения текущего объекта другие объекты, содержащиеся в текущем объекте, будут освобождены автоматически.

Объектно-ориентированные примеры Perl

Мы можем лучше понять объектно-ориентированное применение Perl на следующих примерах:

Пример

#!/usr/bin/perl #Ниже приведена простая реализация класса упаковка МойКласс ;​ новый { распечатать " MyClass ::new под названием n " ; $type = сдвиг ; # имя пакета мой $self = { } # Ссылка на пустой хэш возвращаться благословить $сам , $ тип } суб РАЗРУШАТЬ { распечатать " MyClass::DESTROY вызывается n " } ; суб МойМетод { распечатать " MyClass:: MyMethod вызван! n " } #Реализация наследования упаковка МойSubClass ; @ISA = qw ( МойКласс ) ; новый { распечатать " MySubClass ::new вызванный n " ; $type = сдвиг ; # имя пакета мой $self = MyClass -> new # Ссылка на пустой хеш возвращаться благословить $сам , $ тип } суб РАЗРУШАТЬ { распечатать " MySubClass::DESTROY вызывается n " } ; суб МойМетод { мой $self = сдвиг ; $self - > СУПЕР :: MyMethod ( ) ; " MySubClass:: MyMethod вызван! n " } # Вызов основной программы вышеуказанного класса упаковка главный ; печать " Вызов метода MyClass n " ; $myObject = MyClass - > new ( ) $ myObject -> MyMethod ( ) ; « Вызов метода MySubClass n » ; $myObject2 = MySubClass -> new ( ) $ myObject2 -> MyMethod ( ) print ; " Создать объект области n " { ; мой $myObject2 = MyClass -> новый ( ) } ; # Автоматический вызов деструктора распечатать " Создать объект n " ; $myObject3 = MyClass - > new ( ) ; $мойОбъект3 ; печать " Выполнение скрипта заканчивается... n " # Автоматически выполнить деструктор ;

Результат выполнения вышеуказанной программы:

 Вызовите метод MyClass MyClass::new вызванныйMyClass::MyMethod Вызовите метод MySubClass MySubClass::new вызванныйMyClass::new вызванныйMyClass::MyMethod вызванный! вызывается Создать объект MyClass::new вызываетсяMyClass::DESTROY выполнение вызванного скрипта заканчивается...MyClass::DESTROY вызванныйMySubClass::DESTROY