Rever

Como saber se existe um arquivo no Perl

Como saber se existe um arquivo no Perl



We are searching data for your request:

Forums and discussions:
Manuals and reference books:
Data from registers:
Wait the end of the search in all databases.
Upon completion, a link will appear to access the found materials.

O Perl possui um conjunto de operadores úteis de teste de arquivo que podem ser usados ​​para verificar se um arquivo existe ou não. Entre eles está -e, que verifica se existe um arquivo. Essas informações podem ser úteis para você quando estiver trabalhando em um script que precise acessar um arquivo específico e deseje ter certeza de que o arquivo está lá antes de executar operações. Se, por exemplo, seu script tiver um log ou um arquivo de configuração que dependa, verifique-o primeiro. O script de exemplo abaixo gera um erro descritivo se um arquivo não for encontrado usando este teste.

#! / usr / bin / perl
$ filename = '/path/to/seu/arquivo.doc';
if (-e $ filename) {
print "Arquivo existe!";
}

Primeiro, você cria uma sequência que contém o caminho para o arquivo que deseja testar. Então você embrulha o -e (existe) em um bloco condicional para que a declaração de impressão (ou o que você colocar lá) seja chamada apenas se o arquivo existir. Você pode testar o contrário - que o arquivo não existe - usando o a não ser que condicional:

a menos que (-e $ filename) {
print "O arquivo não existe!";
}

Outros operadores de teste de arquivo

Você pode testar duas ou mais coisas ao mesmo tempo usando os operadores "e" (&&) ou "ou" (||). Alguns outros operadores de teste de arquivo Perl são:

  • -r verifica se o arquivo está legível
  • -W verifica se o arquivo é gravável
  • -x verifica se o arquivo é executável
  • -z verifica se o arquivo está vazio
  • -f verifica se o arquivo é um arquivo simples
  • -d verifica se o arquivo é um diretório
  • -eu verifica se o arquivo é um link simbólico

O uso de um teste de arquivo pode ajudar a evitar erros ou a alertar para um erro que precisa ser corrigido.


Assista o vídeo: MOD::: ENDER PERL (Agosto 2022).