Допустим, вы создаете сценарий Perl для обхода файловой системы и записи того, что она находит. Открывая файловые дескрипторы, вы должны знать, имеете ли вы дело с реальным файлом или с каталогом, к которому вы относитесь по-разному. Вы хотите создать глобальную директорию, чтобы продолжить рекурсивный анализ файловой системы. Самый быстрый способ узнать файлы из каталогов - использовать встроенный в PerlОператоры проверки файлов. В Perl есть операторы, которые вы можете использовать для тестирования различных аспектов файла. Оператор -f используется для идентификации обычных файлов, а не каталогов или других типов файлов.
Сначала вы создаете две строки: один указывает на файл, а другой указывает на каталог. Затем проверьте $ имя_файла с -f оператор, который проверяет, является ли файл файлом. Будет напечатано «Это файл». Если вы попробуете в каталоге оператор -f, он не будет напечатан. Затем сделайте обратное для $ имя_каталога и подтвердите, что это, по сути, каталог. Объедините это с глобус каталога чтобы разобраться, какие элементы являются файлами, а какие каталогами: