Получение информации о файле
Функцию stato можно использовать для получения структуры индексного дескриптора не только файла, но и жестких ссылок на него, а также каталогов, так как они являются также файлами, блоки данных которых содержат имена файлов каталога и их числовых индексных дескрипторов. Для получения информации о символических ссылках следует использовать функцию istat о, которая возвращает список значений полей структуры индексного дескриптора самой ссылки, а не файла, на который она ссылается. Эта функция работает аналогично функции stat (), включая использование специального дескриптора _.
Замечание
Если операционная система не поддерживает символические ссылки, то обращение к функции Istat {} заменяется обращением к функции stat ().
Кроме двух этих функций, позволяющих получать информацию о файлах системы, в Perl предусмотрен набор унарных операций, возвращающих значение только одного поля структуры индексного дескриптора. Эти операции в документации называются "операциями – х", так как их названия состоят из дефиса с последующим единственным символом. Все они являются унарными именованными операциями и имеют свой приоритет в сложных выражениях, о котором мы рассказывали в гл. 3. Полный перечень унарных операций проверки атрибутов файлов представлен в табл. 7.3.
Таблица 7.3. Унарные именованные операции проверки файлов.
| Операция | Проверяемый атрибут |
|---|---|
| -r | Файл может читаться эффективным uid/gid |
| -W | Записывать в файл может эффективный uid/gid |
| -х | Файл может выполняться эффективным uid/gid |
| -о | Владельцем файла является эффективный uid |
| -R | Файл может читаться действительным uid/gid |
| -W | Записывать в файл может действительный uid/gid |
| -X | Файл может выполняться действительный uid/gid |
| -0 | Владельцем файла является действительный uid |
| -е | Файл существует |
| -Z | Размер файла равен нулю |
| -S | Размер файла отличен от нуля (возвращается размер) |
| -f | Файл является обычным (plain) файлом |
| -d | Файл является каталогом |
| -1 | Файл является символической ссылкой |
| -Р | Файл является именованным программным каналом (FIFO) или проверяемый дескриптор связан с программным каналом |
| -S | Файл является сокетом |
| -b | Файл является специальным блочным файлом |
| С | Файл является специальным символьным файлом |
| -t | Дескриптор файла связан с терминалом |
| -и | У файла установлен бит setuid |
| -g | У файла установлен бит setgid |
| -k | У файла установлен бит запрета (sticky bit) |
| -k | У файла установлен бит запрета (sticky bit) |
| -т | Файл является текстовым файлом. |
| -b | Файл является двоичным (противоположным текстовому) |
| -м | Возраст файла в днях на момент выполнения программы |
| -А | То же для времени последнего обращения к файлу |
| -С | То же для времени последней модификации индексного дескриптора файла |
Унарные операции применяются к строке, содержащей имя файла, к выражению, вычисляемым значением которого является имя файла, или к файловому дескриптору Perl. Если параметр операции не задан, то она тестирует файл, чье имя содержится в специальной переменной $_. Каждая операция проверки атрибута файла возвращает 1, если файл обладает соответствующим атрибутом, пустую строку "" в противном случае и неопределенное значение undef, если указанный в параметре файл не существует.
Несколько слов об алгоритме определения текстовых и двоичных файлов (операции -т и -в). Эти операции анализируют содержимое первого блока файла на наличие "странных" символов – необычных управляющих последовательностей или байтов с установленными старшими битами. Если обнаружено достаточно большое количество подобных символов (больше 30%), то файл считается двоичным, иначе текстовым. Любой файл с пустым первым блоком рассматривается как двоичный.
Если эти операции применяются к файловым дескрипторам Perl, то проверяется содержимое буфера ввода/вывода, а не первого блока файла. Обе эти операции, примененные к файловым дескрипторам, возвращают булево значение Истина, если ввязанный с дескриптором файл пуст или установлен на конец файла.
При выполнении унарных именованных операций проверки файла на самом деле неявно вызывается функция statо, причем результаты ее вычисления кэшируются, что позволяет использовать специальный файловый дескриптор _ для ускорения множественных проверок файла:
if(-s("filename") && – Т J {
^ Что-то делаем для текстовых файлов не нулевого размера.
}