Иллюстрированный самоучитель по Perl
Получение информации о файле
Мы знаем, что в файловой системе UNIX информация о файле хранится в его индексном дескрипторе (inode). Структура индексного дескриптора состоит из 13 полей, для которых используются специальные обозначения. Все они перечислены в табл. 7.2.
Таблица 7.2. Структура индексного дескриптора
| Поле | Описание | |
| dev | Номер устройства в файловой системе | |
| ino | Номер индексного дескриптора | |
| mode | Режим файла (тип и права доступа) | |
| nlink | Количество жестких ссылок на файл (в отсутствии ссылок равно 1) | |
| uid | Числовой идентификатор владельца файла | |
| gid | Числовой идентификатор группы владельца файла | |
| rdev | Идентификатор устройства (только для специальных файлов) | |
| size | Размер файла в байтах | |
| a time | Время последнего обращения к файлу с начала эпохи | |
| mtime | Время последнего изменения файла с начала эпохи | |
| с time | Время изменения индексного дескриптора с начала эпохи | |
| blksize | Предпочтительный размер блока для операций ввода/вывода | |
| blocks | Фактическое количество выделенных блоков для размещения файла |
|
Замечание | ||
| Начало эпохи датируется 1 января 1970 года 0 часов 0 минут. |
|
Замечание | ||
| Не все перечисленные в табл. 7.2 поля структуры индексного дескриптора поддерживаются всеми файловыми системами. |
Для получения значений полей структуры индексного дескриптора файла в Perl предназначена функция stato. Ее единственным параметром может быть либо имя файла, либо дескриптор открытого в программе файла. Она возвращает список из 13 элементов, содержащих значения полей структуры индексного дескриптора файла в том порядке, как они перечислены в табл. 7.2. Типичное использование в программе Perl представлено ниже
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($filename);
Присваивание значений полей списку скалярных переменных с идентификаторами, соответствующими названиям полей, способствует лучшей читаемости программы, чем присваивание массиву скаляров:
@inode = stat($filename);
В последнем случае получить значение соответствующего поля можно только с помощью индекса, что не совсем удобно, так как надо помнить номер нужного поля структуры.
