Informática Numaboa - Tutoriais e Programação
Linguagem Perl - Leitura e Escrita de Arquivos
- Detalhes
-
Categoria: Perl e CGI
-
Atualização: Sexta, 21 Novembro 2008 18:02
-
Autor: vovó Vicki
-
Acessos: 19658
Pagina 2 de 2
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.
биография Вадим Логофет глубоко посаженные глазадепутат лобановскийскупка ноутбуковновости из харькова видеоpolish translationлобановский александр
