Perl | Anexando a um arquivo
Quando um arquivo é aberto no modo de gravação usando “>”, o conteúdo do arquivo existente é excluído e o conteúdo adicionado usando a instrução de impressão é gravado no arquivo. Neste modo, o ponto de gravação será definido para o final do arquivo. Portanto, o conteúdo antigo do arquivo permanece intacto e tudo o que é gravado no arquivo usando a instrução de impressão é adicionado ao final do arquivo. No entanto, a operação de leitura não pode ser realizada a menos que o arquivo seja aberto no modo + >> indicando anexar e ler.
Exemplo:
# Opening a file in read mode
# to display existing content
open(FH, "Hello.txt") or
die "Sorry!! couldn't open";
# Reading and printing the existing
# content of the file
print"\nExisiting Content of the File:\n";
while(<FH>)
{
print $_;
}
# Opening file in append mode
# using >>
open(FH, ">>", "Hello.txt") or
die "File couldn't be opened";
# Getting the text to be appended
# from the user
print "\n\nEnter text to append\n";
$a = <>;
# Appending the content to file
print FH $a;
# Printing the success message
print "\nAppending to File is Successful!!!\n";
# Reading the file after appending
print "\nAfter appending, Updated File is\n";
# Opening file in read mode to
# display updated content
open(FH, "Hello.txt") or
die "Sorry!! couldn't open";
while(<FH>)
{
print $_;
}
close FH or "couldn't close";
Arquivo Original:
Anexando ao arquivo:
Arquivo atualizado:
Veja como o programa funciona: -
Etapa 1: Abrindo um arquivo no modo de leitura para ver o conteúdo existente do arquivo.
Etapa 2: Imprimir o conteúdo existente do arquivo.
Etapa 3: Abrindo o arquivo no modo Anexar para adicionar conteúdo ao arquivo.
Etapa 4: Obtendo texto do usuário para ser anexado a um arquivo
Etapa 5: Anexando texto ao arquivo
Etapa 6: Lendo o arquivo novamente para ver o conteúdo atualizado.
Etapa 7: Fechando um arquivo
As postagens do blog Acervo Lima te ajudaram? Nos ajude a manter o blog no ar!
Faça uma doação para manter o blog funcionando.
70% das doações são no valor de R$ 5,00...
Diógenes Lima da Silva