perl | Agregar a un archivo

Cuando se abre un archivo en modo de escritura usando “>”, el contenido del archivo existente se elimina y el contenido agregado usando la declaración de impresión se escribe en el archivo. En este modo, el punto de escritura se establecerá al final del archivo. Por lo tanto, el contenido antiguo del archivo permanece intacto y todo lo que se escribe en el archivo mediante la declaración de impresión se agrega al final del archivo. Sin embargo, la operación de lectura no se puede realizar a menos que el archivo se abra en el modo +>> que indica agregar y leer.

Ejemplo:

# 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";

Archivo original:
 

Anexando al archivo:
 

Archivo actualizado:
 

Así es como funciona el programa: –
Paso 1: abrir un archivo en modo de lectura para ver el contenido existente del archivo.
Paso 2: Imprimir el contenido existente del archivo.
Paso 3: abrir el archivo en modo Agregar para agregar contenido al archivo.
Paso 4: Obtener el texto del usuario para agregarlo a un archivo
Paso 5: Agregar texto al archivo
Paso 6: Leer el archivo nuevamente para ver el contenido actualizado.
Paso 7: Cerrar un archivo