Digamos que você esteja criando um script Perl para percorrer um sistema de arquivos e registrar o que ele encontra. Ao abrir identificadores de arquivo, você precisa saber se está lidando com um arquivo real ou com um diretório que você trata de maneira diferente. Você deseja glob um diretório, para poder continuar analisando recursivamente o sistema de arquivos. A maneira mais rápida de distinguir arquivos de diretórios é usar o pacote interno do Perl.Operadores de teste de arquivo. O Perl possui operadores que você pode usar para testar diferentes aspectos de um arquivo. O operador -f é usado para identificar arquivos regulares em vez de diretórios ou outros tipos de arquivos.
Primeiro, você cria duas cordas: um apontando para um arquivo e outro apontando para um diretório. Em seguida, teste o $ filename com o -f operador, que verifica se algo é um arquivo. Isso imprimirá "Este é um arquivo". Se você tentar o operador -f no diretório, ele não será impresso. Então, faça o oposto para o
$ directoryname e confirme que é, de fato, um diretório. Combine isso com um diretório global para classificar quais elementos são arquivos e quais diretórios: