9.4. Распознавание двух имен одного файла

Проблема

Требуется узнать, соответствуют ли два имени файла из списка одному и тому же файлу на диске (благодаря жестким и символическим ссылкам два имени могут ссылаться на один файл). Такая информация поможет предотвратить модификацию файла, с которым вы уже работаете.

Решение

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

%seen =0;

sub do my thing {

my Sfilename = shift;

my (Sdev, Sine) = stat Sfilename;

unless (! Sseen{$dev, $ino}++) {

# Сделать что-то с Sfilename, поскольку это имя

# нам еще не встречалось

Комментарий

Ключ %seen образуется объединением номеров устройства (Sdev) и индексного узла ($ino) каждого файла. Для одного файла номера устройства и индексного узла совпадут, поэтому им будут соответствовать одинаковые ключи.

Если вы хотите вести список всех файлов с одинаковыми именами, то вместо подсчета экземпляров сохраните имя файла в анонимном массиве:

foreach Sfilename (lafiles) {

(Sdev, Sine) = stat Sfilename;

push( @{ Sseen{Sdev, Sine} }, Sfilename);

foreach Sdevino (sort keys %seen) {

(Sdev, Sine) = split(/S;/o, Sdevino); if (@{Sseen{Sdevino}} > 1) {

# @{Sseen{$devlno}} - список имен одного файла

Переменная $; содержит строку-разделитель и использует старый синтаксис эмуляции многомерных массивов, $hash{$x, $у, $z}. Хэш остается одномерным.

9.5. Обработка всех файлов каталога 333

однако он имеет составной ключ. В действительности ключ представляет собой join($; =>$х, $у, $z). Функция split снова разделяет составляющие. Хотя многоуровневый хэщ можно использовать и напрямую, здесь в этом нет необходимости и дешевле будет обойтись без него.

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

Описание переменной $; в рег/ш?-(1); описание функции stat в perlfunc{l).

9.5. Обработка всех файлов каталога

Проблема

Требуется выполнить некоторые действия с каждым файлом данного каталога.

Решение

Откройте каталог функцией opendir и последовательно читайте имена файлов функцией readdir:

opendir(OIR, Sdirname) or die "cant opendir $dirname; $!"; while (defined($file = readdir{DIR))) { # Сделать что-то с "$dirname/$file"

closedir(DIR);

Комментарий

Функции opendir, readdir и closedir работают с каталогами по аналогии с фу1п<-циями open, read и close, работающими с файлами. В обоих случаях используются манипуляторы, однако манипуляторы каталогов, используемые opendir и другими функциями этого семейства, отличаются от файловых манипуляторов функции open и других. В частности, для манипулятора каталога нельзя использовать оператор о.

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

Ручное присоединение может выглядеть так:

$dir = "/usr/local/bin"; print "Text files in $dir are:\n": opendir(BIN, $dir) or die "Cant open $dir: $!"; while( defined ($file = readdir BIN) ) { print "$file\n" if -T "$dir/$file";

closedir(BIN);

Мы проверяем $file с помощью defined, поскольку простое условие while ($file = readdir BIN) проверяет истинность, а не определеппость. Хотя наш цикл завершается после перебора всех файлов, возвращаемых readdir, он также завершится преждевременно при наличии файла с именем "О".

Функция readdir также возвращает специальные каталоги "." (текущий каталог) и . ." (родительский каталог). Обычно они пропускаются фрагментом следующего вида:

while ( defined ($file = readdir BIN) ) {

next if Sfile =~ /"\.\.?S/; # Пропустить . и .. «...

Манипуляторы каталогов, как и файловые манипуляторы, существуют на уровне пакетов. Более того, локальный манипулятор каталога можно получить двумя способами: с помощью local *DIRHANDLE или модуля (см. рецепт 7.16). В данном случае нужен модуль DirHandle. Следующий фрагмент использует DirHandle для получения отсортированного списка обычных файлов, которые не являются «скрытыми» (имена которых не начинаются с "."):

use DirHandle;

sub plainfiles { my Sdir = shift;

my $dh = DirHandle->new(Sdir) or die "cant opendir Sdir: $!"; return sort # Отсортировать имена

grep { -f } # Выбрать "обычные" файлы

map { "Sdir/S " } « Построить полные пути

grep { !/"\./ } # Отфильтровать скрытые файлы

Sdh->read(); п Прочитать все элементы

Метод read модуля DirHandle работает так же, как и readdir, и возвращает остальные имена файлов. Нижний вызов grep оставляет лишь те имена, которые не начинаются с точки. Вызов тар преобразует имена файлов, полученные от read, в полные, а верхний вызов grep отфильтровывает каталоги, ссылки и т. д. Полученный список сортируется и возвращается.

В дополнение к readdir также существуют функции rewinddir (перемещает манипулятор каталога к началу списка файлов), seekdir (переходит к конкретному смещению в списке) и telldir (определяет смещение от начала списка).

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

Описание функций closedir, opendir, readdir, rewinddir, seekdir и telldir в perlfunc{\y, документация по стандартному модулю DirHandle.