Как узнать, существует ли файл в Perl

Perl имеет набор полезных операторов проверки файлов, которые можно использовать, чтобы узнать, существует ли файл или нет. Среди них есть -e , который проверяет, существует ли файл. Эта информация может быть полезна вам, когда вы работаете над сценарием, которому требуется доступ к определенному файлу, и вы хотите быть уверены, что этот файл существует, прежде чем выполнять операции. Если, например, у вашего сценария есть журнал или файл конфигурации, от которого он зависит, сначала проверьте его. В приведенном ниже примере сценария возникает описательная ошибка, если файл не найден с помощью этого теста.

 #!/Usr/bin/perl 
$ filename = '/path/to/your/file.doc';
if (-e $ filename) {
print "Файл существует!";
}

Сначала вы создаете строку, содержащую путь к файлу, который вы хотите протестировать. Затем вы заключаете оператор -e (exists) в условный блок, чтобы оператор print (или что-то еще, что вы туда поместили) вызывался только в том случае, если файл существует. Вы можете проверить обратное – что файл не существует – с помощью условного условия except :

  e $ filename) {
print "Файл не существует!";
}

Другое Операторы проверки файлов

Вы можете тестировать два или более объекта одновременно, используя операторы «и» (&&) или «или» (||). Вот некоторые другие операторы проверки файлов Perl:

  • -r проверяет, доступен ли файл для чтения
  • -w проверяет, доступен ли файл для записи.
  • -x проверяет, является ли файл исполняемым
  • -z проверяет, пуст ли файл.
  • -f проверяет, является ли файл является простым файлом
  • -d проверяет, является ли файл каталогом
  • -l проверяет, является ли файл символической ссылкой.

Использование проверки файла может помочь вам избежать ошибок или сообщить об ошибке, которую необходимо быть исправленным.

Оцените статью
recture.ru
Добавить комментарий