Informática Numaboa - Tutoriais e Programação

Linguagem Perl - Leitura e Escrita de Arquivos

Sex

Nov

2008

16:08

(5 votos, média 4.00 de 5)

Detalhes: Categoria: Perl e CGI; Atualização: Sexta, 21 Novembro 2008 18:02; Autor: vovó Vicki; Acessos: 19693

A linguagem Perl permite abrir e fechar arquivos, tanto para a leitura quanto para a escrita. Neste tutorial serão dadas as bases para realizar estas operações.

Abrir e Fechar Arquivos

Com scripts Perl é possível administrar arquivos. Associados a scripts CGI, pode-se ler e escrever arquivos no servidor. As aplicações mais conhecidas de CGI, como contadores de acesso ou livros de visita, utilizam-se desta possibilidade.

Cada arquivo que deva ser lido ou receber dados (ser escrito) através de um script Perl, precisa antes ser aberto. Após a leitura ou a escrita, os arquivos deveriam ser fechados novamente. Veja alguns exemplos a seguir:

#!/usr/bin/perl open(ARQUIVONOTICIA, "news.txt"); # Abrir arquivo para escrita close(ARQUIVONOTICIA); open(ARQUIVONOTICIA, ">>news.txt"); # Abrir arquivo para escrita complementar close(ARQUIVONOTICIA); if(open(ARQCONTA, "

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:

#!/usr/bin/perl @Linhas = (""); open(DADOSMAIL, ") { push(@Linhas,$_); } close(DADOSMAIL); for(@Linhas) { if(/HTML/) { print $_; } }

Exemplo 2 - Leitura de arquivo caracter por caracter:

#!/usr/bin/perl @Vogais = ("a","e","i","o","u"); @Frequencia = (0,0,0,0,0); open(DADOS, "<$ARGV[0]") || die "$_[1] não encontrado\n"; while(($CaracterAtual = getc(DADOS)) ne "") { for($i=0;$i<=4;++$i) { if($CaracterAtual eq $Vogais[$i]) { $Frequencia[$i]++; } } } close(DADOS); for($i=0;$i<=4;++$i) { print "$Vogais[$i] aparece $Frequencia[$i] vezes em $ARGV[0]\n"; }

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:

#!/usr/bin/perl # Este exemplo faz a leitura de endereços que têm vírgulas como caracteres # delimitadores e os escreve em formato HTML num novo arquivo @Endereco = (""); # Armazena todos os registros @Registro = (""); # Armazena todos os campos do registro atual $Campos = ""; # Armazena os nomes dos campos (estão no primeiro registro $i = 0; open(ENDERECOS, ") # Leitura do arquivo delimitado por vírgulas { if($i == 0) # Ler primeira linha do arquivo { $Campos = $_; # Pegar nome dos campos } else { $Endereco[$i] = $_; # a partir da segunda linha por em @Endereco } $i++; # Incrementar contador } close(ENDERECOS); $Numero = $i - 1; # Guardar número de registros chop($Campos); @DadosCampos = split(/,/,$Campos); # Separar o nome dos campos open(DADOSEND, ">enderecos.htm"); # Abrir arquivo HTML para escrita print DADOSEND "\n\n"; # Escrita no arquivo HTML print DADOSEND "Endereços\n"; print DADOSEND "$DadosCampos[$i]: $Registro[$i]
\n"; $i++; } } print DADOSEND "\n\n"; close(DADOSEND); print $Numero," Registros escritos\n"; # Apenas para controle: na saída padrão

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.