Um arquivo é aberto com a função Perl open. Esta função requer dois parâmetros.

O primeiro parâmetro é um manipulador (handler) de arquivo. O handler é um nome que o arquivo aberto recebe e que serve para referenciá-lo (não é o nome próprio do arquivo, é uma espécie de apelido). Este nome é de livre escolha. Costuma-se usar apenas letras maiúsculas para nomes de handlers. Nos exemplos acima, os handlers são ARQUIVONOTICIA e ARQCONTA.

O segundo parâmetro exigido é o nome do arquivo que deve ser aberto. Se o arquivo em questão estiver num diretório diferente do diretório onde está o script, é preciso indicá-lo.

Antes do nome do arquivo (ou do diretório/nome do arquivo) indica-se, através de caracteres especiais, qual o modo de abertura que deve ser utilizado:

• >arquivo.dat significa: abrir arquivo.dat para escrita. Se o arquivo já existir, seu conteúdo é substituído pelo novo. Caso não exista, um novo arquivo é criado.
• >>arquivo.dat significa: abrir arquivo.dat para escrita. Se o arquivo já existir, o novo conteúdo é adicionado, isto é, o conteúdo antigo não é eliminado. Caso não exista, um novo arquivo é criado.
• +>arquivo.dat significa: abrir arquivo.dat para leitura e escrita.
• |procura.exe significa: o arquivo procura.exe é um programa executável. O programa é aberto para poder ser executado.

Faz parte de uma boa programação rastrear possíveis erros na abertura de arquivos e tratá-los no script Perl. Os dois últimos exemplos mostram construções de diretivas para reagirem a esses possíveis erros. O penúltimo exemplo trabalha com uma diretiva condicional que, caso ocorra um erro, mostra uma mensagem de erro com a ajuda da função print. O último exemplo faz uso de uma condição lógica OU (OR) que o interpretador Perl avalia. Inicialmente é avaliada a primeira parte da expressão (na frente do operador lógico ||). Este é o comando para abrir o arquivo. Se o arquivo for aberto com sucesso, a função open devolve o valor "verdadeiro" tornando toda a expressão lógica verdadeira. Se o arquivo não puder ser aberto, então a segunda parte da expressão é avaliada. Neste caso, através da função die (die = morrer), o texto indicado é mostrado e o script é interrompido. O texto da função die é opcional.

Leitura de Arquivos

Existem diversas possibilidades de leitura de arquivos. O tipo de leitura depende das tarefas que o script Perl deve executar. A premissa para a leitura de arquivos é que os arquivos estejam abertos para leitura.

Exemplo 1 - Leitura de arquivo linha por linha:

Exemplo 2 - Leitura de arquivo caracter por caracter:

O padrão de leitura de arquivos em Perl é a leitura linha por linha, como no exemplo 1. Isto funciona com todos os arquivos que possam ser lidos com facilidade por um editor de texto portanto, funciona para todo tipo de arquivo de texto, arquivos de configuração ou arquivos de dados estruturados em linhas e com delimitadores para os campos. Para este tipo de leitura nem existe um comando especial em Perl. Utiliza-se apenas um loop while com a sintaxe while() onde HANDLERDOARQUIVO é o nome atribuído na ocasião do open. No interior do loop pode-se obter a linha atual através da variável predefinida $_. Para manter os dados na memória, visando um processamento posterior, é possível armazenar as linhas numa matriz ou lista (como no exemplo 1).

Arquivos binários, ou seja, arquivos com formatos de programas específicos e que contenham valores numéricos e caracteres especiais, adaptam-se melhor a uma leitura caractere por caractere (como no exemplo 2). A função de leitura de caracteres de um arquivo é a getc. Esta função devolve o último caractere lido, o qual pode ser armazenado numa variável. Quando se atinge o final do arquivo, esta função devolve um caractere vazio (hexadecimal 0). É por este motivo que, no exemplo 2, se utiliza o operador relacional ne "" como condição para terminar o loop while.

:info: Observação: O exemplo 2 mostra também como se pode ler um arquivo cujo nome é enviado através de um parâmetro. Os argumentos repassados ao script ficam armazenados na variável predefinida @ARGV.

Escrever dados em arquivos

Dependendo do modo como um arquivo foi aberto, um arquivo pode ser sobre-escrito ou ter novos dados adicionados. Veja um exemplo:

Esclarecimento: Para escrever dados em arquivos, utiliza-se normalmente a função print da Perl. Ao contrário das saídas através da saída padrão, a escrita num arquivo precisa referenciar o handler atribuído na abertura do mesmo após o comando print. No exemplo acima, o arquivo enderecos.htm é aberto para escrita e recebe o handler DADOSEND. Com print DADOSEND "dados..." é praticada a escrita dos dados no referido arquivo.