# Выбрать различные значения, включая нулевого друга printf "At age %d, %ss first friend is %s.\n", $p->age, $p->name, $p->peers(0);

ластью действия). Только методы класса могут напрямую обращаться к атрибутам класса. Методы объектов работают только с данными объектов. Если методу объекта потребуется обратиться к данным класса, его конструктор должен сохранить ссылку на эти данные в объекте. Пример:

sub new {

my Sclass = shift; my Sself = bless({>, Sclass); $self->{Max Bounds ref> = \$Bounds; return Sself,

>

> Смотри также-

perltoot(\.), perlobj{i) w perlbot{\); рецепт 13.3; пример использования метода places в разделе «Пример. Перегруженный класс FixNum» в рецепте 13.14.

13.5. Использование класса как структуры

Проблема

Вы привыкли работать со структурированными типами данных - более сложными, чем массивы и хэщи Perl (например, структуры С и записи Pascal). Вы слыща-ли о том, что классы Perl не уступают им по возможностям, но не хотите изучать объектно-ориентированное программирование.

Решение

Воспользуйтесь стандартным модулем Class::Struct для объявления С-подобных структур:

use Class;;Struct, # Загрузить модуль построения структур

struct Person => { (t Создать определение класса "Person"

name =>$, tt Имя - скаляр

age =>$, tt Возраст - тоже скаляр

peers => @, # Но сведения о друзьях - массив (ссылка)

>:

ту $р = Person->new(); # Выделить память для пустой структуры Person

$p->name("Jason Smythe"), # Задать имя

$p->age(13); # Задать возраст

$p->peers( ["Wilbur", "Ralph", "Fred ] ); # Задать друзей

tt Или так;

p->peersi = ("Wilbur", "Ralph", "Fred");

13.5. Использование класса как структуры 465

Комментарий

Функция Class: : St ruct: struct автоматически создает классы, дублирующие структуры. Она создает класс с именем, передаваемым в первом аргументе, и генерирует для него конструктор new и методы доступа к полям.

В определении структуры ключи соответствуют именам полей, а значения - типам данных. Существуют три основных значения типа: $ для скаляров, @ для массивов и % для хэщей. Каждый метод доступа может вызываться без аргументов (выборка текущего значения) или с аргументами (присваивание значения). Для полей с типом «массив» или «хэщ» вызов метода без аргументов возвращает ссылку на весь массив или хэщ, вызов с одним аргументом получает значение по указанному индексу, а вызов с двумя аргументами задает значение для указанного индекса.

Однако тип может быть именем другой структуры (или любого класса), имеющей конструктор new.

use Class:Struct,

struct Person => {name => $, age => $};

struct Family => {head => Person , address => $ , members => @},

$folks = Family->new(); $dad = $folks->head, $dad->name("John"); $dad->age(34);

printf(%ss age is %d\n", $folks->head->name, $folks->head->age).

Чтобы организовать дополнительную проверку параметров, напищите собственные версии методов доступа, переопределяющие версии по умолчанию. Предположим, вы хотите убедиться, что значение возраста состоит из одних цифр и не превыщает нормальной продолжительности человеческой жизни. Функция Может выглядеть так:

sub Person::age { use Carp,

my ($self, $age) = @ ;

If (@ > 2) { confess "too many arguments" } elsif (@ == 1) { return $struct->{ age> }

elsif (@ == 2) {

carp "age $age isnt numeric" if $age i~ /"\d+/;

carp "age $age is unreasonable" if $age > 150;

$self->{age} = $age,

>

Если предупреждения должны выводиться лищь при наличии флага -w в командной строке, проверьте переменную $"W:

Если только оно не является ссылкой; в этом случае используется субъектная структура данных с проверкой типа.

If ($"W) {

carp "age Sage isnt numeric" if Sage ! /"\d+/; carp "age Sage is unreasonable" if Sage > 150;

Если при наличии флага -w выводится предупреждение, а без него функция должна инициировать исключение, воспользуйтесь следующим фрагментом. Пусть стрелка вас не смущает; это косвенный вызов функции, а не вызов метода.

ту Sgripe = $"W ? \&carp : \&croak;

$gripe->("age Sage isnt numeric") if Sage !~ /"\d+/; $gripe->("age Sage is unreasonable") if Sage > 150;

Как и большинство классов, наш класс реализован в виде хэша. Это упрощает отладку и сопровождение кода. Представьте себе возможность вывода структуры в отладчике. Однако модуль Class::Struct также поддерживает реализацию на базе массива, для этого достаточно перечислить поля в квадратных скобках вместо фигурных;

struct Family => [head => Person, address => $, members => §];

Существуют эмпирические данные, свидетельствующие о том, что выбор массива вместо хэша снижает расходы памяти от 10 до 50 % и примерно на 33 % ускоряет доступ. За это приходится расплачиваться менее содержательной отладочной информацией и трудностями при написании переопределяющих функций (таких, как приведенная выше функция Person::age). Обычно представление объекта в виде массива усложняет наследование. В данном случае это не так, поскольку С-по-добные структуры обеспечивают намного более понятную реализацию агрегирования.

Директива use fields в Perl версии 5.005 повышает скорость за счет дополнительных затрат памяти и обеспечивает проверку имен полей на стадии компиляции.

Если все поля принадлежат к одному типу, то запись вида;

struct Card => { name => $, color => $, cost => $, type => $, release => $, text => S,

упрощается с помощью функции map;

struct Card => map {$ =>$ } qw(name color cost type release text);

A если вы программируете на С и предпочитаете указывать тип поля перед его именем, а не наоборот, просто измените их порядок:

struct hostent => { reverse qw{ $ name