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

#/usr/bin/perl

# cleiiio valuering - демонстрация связывания use ValueRing,

tie Scolor, ValueRing , qw(red blue),

print Scolor Scolor Scolor Scolor Scolor $color\n ,

red blue red blue red blue

Scolor = green ,

print Scolor Scolor Scolor Scolor Scolor $color\n , green red blue green red blue

Простая реализация класса ValueRing приведена в примере 13.3. Пример 13.3. ValueRing

package ValueRing,

# Конструктор для связывания скаляров sub TIESCALAR {

my (Sclass, ©values) = @ , bless \@values, Sclass, return \@values,

# Перехватывает чтение sub FETCH {

my Sself = shift, push(@Sself, shift(@$self)), return $self->[-1],

>

# Перехватывает запись sub STORE {

my (Sself, Svalue) = @ , unshift @Sself, Svalue, return Svalue,

Вероятно, такой пример кажется надуманным, но он показывает, как легко создать связь произвольной сложности. Для пользователя Scolor остается старой доброй переменной, а не объектом. Все волшебство спрятано под связью. При связывании скалярной переменной совсем не обязательно использовать скалярную ссылку; мы использовали ссылку на массив, но вы можете выбрать любой другой вариант. Обычно при связывании любых переменных используется ссылка на хэш, поскольку она обеспечивает наиболее гибкое представление объекта.

Для массивов и хэшей возможны и более сложные операции. Связывание манипуляторов появилось лишь в версии 5.004, а до появления версии 5.005 возможности применения связанных массивов были несколько ограничены, но связывание хэшей всегда поддерживалось на высоком уровне. Поскольку полноценная поддержка связанных хэшей требует реализации множества методов объекта, многие пользователи предпочитали наследовать от стандартного модуля Tie::Hash, в котором существуют соответствующие методы по умолчанию.

Ниже приведены некоторые интересные примеры связывания.

Пример связывания. Запрет $

Этот любопытный связываемый класс подавляет иснользование неявной переменной $ . Вместо того чтобы подключать его командой use, что приведет к косвенному вызову метода importO класса, воспользуйтесь командой по для вызова редко используемого метода uniiiiport(). Пользователь включает в программу следующую команду:

по Underscore;

После этого любые попытки использования нелокализованной глобальной переменной $ приводят к инициированию исключения.

Рассмотрим применение модуля на небольшом тестовом примере:

#!/usr/bin/perl

# nounder demo - запрет использования $ в программе по Underscore; ftests = (

"Assignment" => sub { $ = "Bad" },

"Reading" => sub { print },

"Matching" => sub { $x = /badness/ },

"Chop" => sub { chop },

"Filetest" => sub { -x },

"Nesting" => sub { for (1,.3) { print } },

while ( (Sname, Scode) = splice(@itests, 0, 2) ) { print "Testing $name: "; eval { &$code };

print St ? "detected" : "missed!"; print "\n";

Результат выглядит так:

Testing Assignment: detected Testing Reading: detected Testing Hatching: detected Testing Chop: detected Testing Filetest: detected Testing Nesting: 123iiiissedl

В последнем случае обращение к переменной не было перехвачено, поскольку она была локализована в цикле for.