Модуль Data::Dumper, доступный на CPAN, предоставляет более гибкое решение. Входяшая в него функция Dumper получает список ссылок и возврашает строку с выводимой (и пригодной для aval) формой этих ссылок.

use Data::Dumper; print Dumper(\@INC); $VAR1 = [

/home/tchrist/perlllb, ;usr/llb/perl5/1686-llmix/5.00403, /usr/lib/perl5, 7usr/lib/perl5/slte perl/i686-linux, •/usr/lib/perl5/site perl,

Data;-.Dumper поддерживает разнообразные форматы вывода. За подробностями обращайтесь к документации.

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

Документация но модулю Data:;Dumper с CPAN; раздел «The Perl Debugger* perldebug{i).

11.12. Копирование структуры данных

Проблема

Требуется скопировать сложную структуру данных.

Решение

Воспользуйтесь функцией dclone модуля Storable от CPAN;

use Storable,

$r2 = dclone($r1).

Комментарий

Существуют два типа копирования, которые иногда путают. Поверхностное копирование (surface сору) ограничивается конированием ссылок без создания копий данных, на которые они ссылаются:

©original = ( \(аа, \(аЬ, \(ас ); ©surface = (aoriginal;

Глубокое копирование (deep сору) создает абсолютно новую структуру без пермфы-вающихся ссылок. Следующий фрагмент копирует ссылки на один уровень вглубь;

©deep = map { [ @% ] } ©original;

Если неременные @а, @Ь и @с сами содержат ссылки, вызов тар не решит всех проблем. Написание специального кода для глубокого копирования структур - дело трудоемкое и быстро надоедающее.

Модуль Storable, доступный на CPAN, содержит функцию dclone, которая обеспечивает рекурсивное копирование своего аргумента:

use Storable qw(dclone); $г2 = dclone($r1);

Функция работает только со ссылками или ириписанными к конкретному пакету (blessed) объектами типа SCALAR, ARRAY и HASH; ссылки на CODE, GLOB и Ю и другие экзотические тины не поддерживаются. Функция safeFreeze модуля FreezeThaw обеспечивает такую возможность для одного адресного пространства посредством использования кэша ссылок, который при некоторых обстоятельствах вмешивается в процесс сборки мусора и работу деструкторов объектов.

Поскольку dclone принимает и возврашает ссылки, при копировании хэша ссылок в нее приходится включать дополнительные символы:

%newhash = %{ dclone(\%oldhash) };

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

Документация но модулям Storable, Data::Dumper и FreezeThaw с CPAN.

11.13. Сохранение структур данных на диске

Проблема

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

Решение

Воспользуйтесь функциями store и retrieve модуля Storable с CPAN:

use Storable;

store(\%hash, "filename"); # later on ..

$href = retrieve("filename"), # По ссылке

%hash = %{ retrieve("filename") }; # Прямо в хэш

Комментарий

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

Функции store и retrieve предполагают, что в передаваемых двоичных данных используется порядок байтов, стандартный для данного компьютера. Это означает, что созданные этими функциями файлы нельзя передавать между различными архитектурами. Функция nstore делает то же, что и store, но сохраняет дан-

ные в каноническом (сетевом) порядке. Быстродействие при этом несколько снижается;

use Storable qw(nstore), nstore(\%hash, filename ), # Позднее

Shref = retrieve( filename )

Независимо от того, какая функция сохраняла данные - store или nstore, для их восстановления в памяти используется одна и та же функция retrieve. О переносимости должен заботиться создатель данных, а не их потребитель. Если создатель изменит свое решение, ему достаточно изменить программу всего в одном месте. Тем самым обеспечивается последовательный ]П1терфейс со стороны потребителя, который ничего не знает об этих изменениях.

Функции store и nstore не блокируют файлы, с которыми они работают. Если вас беспокоят проблемы наратлельного доступа, откройте файл самостоятельно, заблокируйте его (см. рецепт 7.11) и воспользуйтесь функцией store fd или более медленной, но независимой от платформы версией, nstore fd.

Следующий фрагмент сохраняет хэш в файле с установкой блокировки При открытии файла не используется флаг 0 TRUNC, поскольку до стирания содержимого нам приходится ждать получения блокировки.

use Storable qw(nstore fd), use Fcntl qw( DEFAULT flock)

sysopen(DF, /trap/datafile , 0 RDWR0 CREAT 0666)

or die can t open /tmp/dataflie S , flock(DF L0CK EX) or die can t lock /tmp/datafile $i nstore fd(\%hash, .DF)

or die can t store hash\n truncate(DF, tell(DF)) close(DF),

Другой фрагмент восстанавливает хэш из файла, также с применением блокировки;

use Storable,

use Fcntl qw( DEFAULT flock),

open(DF, < /tmp/datafile ) or die can t open /tmp/dataflie $ ,

flock(DF, L0CK SH) or die can t lock /tmp/datafile $ ,

Shref = retrieve(.DF), close(DF),

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

В отличие от связей с различными реализациями DBM, модуль Storable не ограничивается одними хэшами (или массивами, как DB File). На диске могут сохраняться ироизвольные структуры данных. Вся структура должна читаться или записываться полностью.

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

Рецепт 11.14.