5.15. Представление отношений между данными 173

print $ , # Вывести текущее имя

$ = $father{$ }, П Присвоить $ отца $ } while defined, # Пока отцы находятся

print \п ,

Просматривая хэш %f ather, можно отвечать на вопросы типа: «Кто родил Сета?» При инвертировании хэша отношение заменяется противоположным Это позволяет использовать рецепт 5.8 для ответов на вопросы типа: «Кого родил Ламех?»

while ( ($к, $v) = each %father ) { push( @{ $children{$v} }, $k )

$ = , # Выходные данные разделяются запятыми

while (о) { chomp

If ($children{$ }) {

©children = @{$children{$ }} } else {

©children = nobody

print $ begat ©children \n ,

Хэши также могут представлять такие отношения, как директива #include языка С - А включает В, если А содержит ttinclude В Следующий фрагмент строит хэш (он не проверяет наличие файлов в /usr/include, как следовало бы, но этого можно добиться ценой минимальных изменений):

foreach $file (©files) {

local *F, # Ha случай если понадобится

tt локальный файловый манипулятор unless (open (F, <$file )) {

warn Couldn t read file $ skipping \n , next,

while (<F>) {

next unless /"\s*#\s+include\s+<([>\+)>/, push(@{$includes{$1}) $file),

close F,

Другой фрагмент проверяет, какие файлы не включают других:

@include fгее = () # Список файлов, не включающих других файлов

@uniq{map { ©$ } values %includes} = undef foreach $file (sort keys %uniq) {

push( @include free , $file ) unless $includes{$file}

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

Рецепт 4.6; описание более сложных структур данных в рецептах 11,9-11.14.

5.16. Программа: dutree

Программа dutree (см. пример 5.3) преобразует выходные данные du:

% du cookbook

19 pcb/fix

20 pcb/rev/maybe/yes 10 pcb/rev/maybe/not 705 pcb/rev/maybe

54 pcb/rev/web

1371 pcb/rev 3 pcb/pending/mlne

1016 pcb/pending 2412 pcb

в отсортированную иерархическую структуру с расставленными отступами: 2412 pcb

1371 rev

705 maybe I 675 .

I 20 yes

I 10 not

612 . 54 web 1016 pending

1013 . 3 mine

19 fix 6 .

Аргументы передаются программе dutree через du. Это позволяет вызвать dutree любым из приведенных ниже способов, а может быть, и иначе - если ваша версия du поддерживает другие параметры.

% dutree

% dutree /usr

% dutree -a

% dutree -a /bin

Хэш %Dirsize сопоставляет имена с размерами файлов. Например, значение $Dirsize{"pcb "} в нашем примере равно 2412. Этот хэш используется как для вывода, так и для сортировки подкаталогов каждого каталога по размерам.

Результат values %includes представляет собой анонимный массив, поскольку один файл может включать (и часто включает) сразу несколько других файлов. Мы используем тар для построения большого списка всех включенных файлов и удаляем дубликаты с помощью хэша.

# Рассчитать, сколько места занимают файлы каждого каталога,

# не находящиеся в подкаталогах Добавить новый фиктивный

# подкаталог с именем , содержащий полученную величину sub getdots {

Хэш %Kids представляет больший интерес. Для любого пути $path значение $Kids{path} содержит (ссылку на) массив с именами подкаталогов данного каталога. Так, элемент с ключом "рсЬ" содержит ссылку на анонимный массив со строками "fix", "rev" и "pending". Элемент "rev" содержит "maybe" и "web". В свою очередь, элемент "maybe" содержит "yes" и "по", которые не имеют собственных элементов, поскольку являются «листами» (конечными узлами) дерева.

Функции output передается начало дерева - последняя строка, прочитанная из выходных данных du. Сначала функция выводит этот каталог и его размер, затем сортирует его подкаталоги (если они имеются) так, чтобы подкаталоги наибольшего размера оказались наверху. Наконец, output вызывает саму себя, рекурсивно перебирая все подкаталоги. Дополнительные аргументы используются при форматировании.

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

Пример 5.3. dutree

#•/usr/bin/perl -w

it dutree - печать сортированного иерархического представления # выходных данных du use strict,

my %Dirsize, my %Kids,

getdots(my $topdir = inputO), output($topdir),

tt Запустить du, прочитать входные данные, сохранить размеры и подкаталоги tt Вернуть последний прочитанный каталог (файл) sub input {

my($si2e, $name, $parent),

@ARGV = ( du @ARGV ), # Подготовить аргументы

while (о)

($size, $name) = split,

$Dirsize{$name} = $size,

(Sparent = Sname) =" s#/[/]+$##, # Имя каталога push @{ $Kids{$parent} }, $name unless eof,

return $name;