11.10. Чтение и сохранение записей в текстовых файлах 395

# Используем ©byage, массив массивов записей push @{ $byage[ $recorcl->{AGE} ] }, Srecord;

Далее отбор осуществляется следующим образом:

for (Sage = 0; Sage <= S#byage; Sage++) { next unless Sbyage[Sage]; print "Age Sage , foreach Srp (§{$byage[$age]}) { print Srp->{NAME}, ",

print "\n",

Аналогичное рещение заключается в ирименении map, что позволяет избежать цикла foreach:

for (Sage = О, Sage <= S#byage; Sage++) { next unless Sbyage[Sage]; printf "Age %d; %s\n", Sage,

]oin(", , map {S ->{NAME}} @{Sbyage[Sage]}),

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

Рецепты 4.13; 11.3.

11.10. Чтение и сохранение записей в текстовых файлах

Проблема

Требуется прочитать или сохранить хэщ записи в текстовом файле.

Решение

Воспользуйтесь простым форматом, при котором каждое иоле занимает отдельную строку вида:

ИмяПоля: Значение

и разделяйте записи пустыми строками.

Комментарий

Если у вас имеется массив записей, которые должны сохраняться в текстовом файле и читаться из него, воспользуйтесь простым форматом, основанным на заголовках почтовых сообщений. Из-за простоты формата ключи не могут быть двоеточиями и переводами строк, а значения - переводами строк. Следующий фрагмент записывает данные в файл:

foreach Srecord (@Array of Records) { for Skey (sort keys %Srecord) {

print "Skey $record->{$key}\n;

print \n;

Прочитать записи из файла тоже несложно:

$/=", # Режим чтения абзацев

while (О) {

гау ©fields = { split /"([";]+) \s./f» ).

shift (afields; # Удалить начальное пустое поле

push((aArray of Records, { (ffifields });

Функция spilt работает с $ , своим вторым аргументом по умолчанию, в котором находится прочитанный абзац. Шаблон ищет начало строки (не просто начало записи благодаря /ш), за которым следует один или более символов, пе являющихся двоеточиями, затем двоеточие и необязательный пропуск. Еслн шаблон split содержит скобки, они возвращаются вместе со значениями. Возвращаемые значения заносятся в @f ileds в порядке «ключ/значение»; пустое поле в начале убирается. Фигурные скобки в вызове push создают ссылку па новый анонимный хзш, куда копируется содержимое ©fields. Поскольку в массиве сохранился порядок «ключ/значение», мы получаем правильно упорядоченное содержимое х.чша.

Все ироисходящее сводится к операциям чтения и записи простого текстового файла, поэтому вы можете воспользоваться другими рецептами. Рецепт 7.11 поможет правильно организовать параллельный доступ. В рецепте 1.13 рассказано о сохранении в ключах и значениях двоеточий и переводов строк, а в рецепте 11.3 - о сохранении более сложных структур.

Если вы готовы пожертвовать элегантностью простого текстового файла в пользу быстро11 базы да1Н1Ых с произвольным доступом, воспользуйтесь DBM-фай-лом (см. рецепт 11.14).

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

Описание функции split в рег шс(1);-рецепты 11.9, 11.13-11.14.

11.11. Вывод структур данных

Проблема

Требуется вывести содержимое структуры да1И1ых.

Решение

Если важна наглядность вывода, напишите нестандартную процедуру вывода. В отладчике Perl воспользуйтесь командой х:

0В<1> $reference = [ { foo => "bar" }, 3, sub { print "hello, world\n } ], 0B<2> X $reference 0 ARRAY(0x1d033c) 0 HASH(0x7b390)

•foo = •bar>

2 C0DE(0x21e3e4) - & in ???>

В программе воспользуйтесь функцией Dumper модуля Data::Dumper от CPAN:

use Data..Dumper:

print Dumper($reference),

Комментарий

Иногда для вывода структур данных в определенном формате пишутся специальные функции, но это часто оказывается перебором. В отладчике Perl сушеству-ют команды х и X, обесиечиваюшие симпатичный вывод. Команда х полезнее, поскольку она работает с глобальными и лексическими переменными, а X - только с глобальными. Передайте х ссылку на выводимую структуру данных.

D<1> X \@Ж

О ARRAY(0x807d0a8)

0 Vhome/tchrist/perllib

1 7usr/lib/perl5/i686-linux/5.00403 2 /usr/lib/perlS

3 /us r/lib/pe rl5/site pe rl/i686-linux

4 /usr/lib/perlS/site.perl 5 . •

Эти команды используют библиотеку dumpvar.pl. Рассмотрим пример:

{ package main, require dumpvar.pl }

•dumpvar = \&main dumpvar if PACKAGE ne main ; dumpvarC main, "INC"); # Выводит и ©INC, и %INC

Библиотека dumpvar.pl не является модулем, но мы хотим использовать ее как модуль и поэтому заставляем импортировать функцию dumpvar. Первые две строки форсируют импортирование функции main: :dumpvar из пакета main в текущий пакет, предполагая, что эти функции отличаются. Выходные данные будут выглядеть так:

§INC = (

0 •/home/tchrist/perllib/i686-linux

1 /home/tchrist/perllib

2 •/usr/lib/perl5/i686-linux/5.00404 3 /usr/lib/perlS

4 •/usr/lib/perl5/site perl/i686-linux

5 /usr/lib/perl5/site perl 6 . •

XINC = (

dumpvar.pl = /usr/lib/perl5/i686-linux/5.00404/dumpvar.pl strict.pm = •/usr/lib/perl5/i686-linux/5.00404/strict.pm