perl | Módulo Slurp

El módulo File::Slurp se usa para leer el contenido de un archivo y almacenarlo en una string. Es una forma simple y eficiente de Leer/Escribir/Modificar archivos completos. Al igual que su nombre, le permite leer o escribir archivos completos con una simple llamada. 
Al importar este módulo a su programa, el usuario puede implementar algunas funciones como leer_archivo, leer_texto, escribir_archivo, etc. para leer y escribir contenido en/desde el archivo.
Instalación de File::Slurp Module: 
Para usar este módulo, primero es necesario agregarlo a su paquete de idioma Perl. Esto se puede hacer usando los siguientes comandos en su Terminal Perl e instalando el módulo requerido.
Paso 1: Abre tu terminal y ejecuta el siguiente comando: 
 

perl -MCPAN -e shell

Después de ingresar al shell de cpan, siga el siguiente paso para instalar el módulo File::Slurp. 
Paso 2: Ejecute el siguiente comando para instalar el módulo: 
 

install File::Slurp

Esto instalará el módulo File::Slurp. 
Paso 3: escriba y ejecute el comando ‘q’ para salir del indicador cpan> .
Función read_file en Slurp: 
File::La función read_file de Slurp lee todo el contenido de un archivo con el nombre del archivo y lo devuelve como una string. Sin embargo, no se recomienda el uso de File::Slurp ya que tiene pocos problemas de capa de codificación que pueden causar problemas durante la compilación. File::Slurper pretende ser una alternativa para evitar los problemas antes mencionados. 
 

Sintaxis: 
use Archivo::Slurp; 
mi $texto = leer_archivo($archivo);
Retorno: Devuelve una string.

función read_text en Slurp: 
La función read_text de File::Slurper acepta un argumento de codificación opcional (si lo hay), y puede decodificar automáticamente los finales de línea CRLF si lo solicita (para archivos de Windows).
 

Sintaxis: 
use Archivo::Slurper; 
mi $contenido = read_text($filename);
Retorno: Devuelve una string.

Nota: 
Los finales de línea CRLF se utilizan para marcar un salto de línea en un archivo de texto (tipos de salto de línea de Windows).
función write_file en Slurp: 
La función write_file de File::Slurp se usa para escribir en archivos todos a la vez con el uso del módulo File::Slurp. Escribe en el archivo con la ayuda de una variable escalar que contiene el contenido de otro archivo leído por la función read_file.
 

Sintaxis: 
use Archivo::Slurp; 
write_file($archivo, $contenido);
Devoluciones: no devuelve ningún valor, solo escribe el contenido en el archivo.

Ejemplo 1: uso de escalar para almacenar contenido de archivo
 

# Perl code to illustrate the slurp function
use File::Slurp;
 
# read the whole file into a scalar
my $content = read_file('C:\Users\GeeksForGeeks\GFG_Slurp.txt');
 
# write out a whole file from a scalar
write_file('C:\Users\GeeksForGeeks\Copyof_GFG_Slurp.txt', $content);

Producción : 
 

Explicación: 
en el código Perl anterior, inicialmente usamos una función slurp para leer un archivo llamado GFG_Slurp.txt que contenía algunas líneas de texto como entrada en una variable escalar llamada $content y luego escribimos el contenido del archivo en otro archivo Copyof_GFG_Slurp .txt como una sola string.
Ejemplo 2: Uso de Array para almacenar contenido de archivos
 

# perl code to illustrate the slurp function
use File::Slurp;
 
# read the whole file into a scalar
my @lines = read_file('C:\Users\GeeksForGeeks\GFG_Slurp2.txt');
 
# write out a whole file from a scalar
write_file('C:\Users\GeeksForGeeks\Copyof_GFG_Slurp2.txt', @lines);

Producción : 
 

Explicación: 
en el código Perl anterior, inicialmente usamos una función slurp para leer un archivo llamado GFG_Slurp2.txt que contiene una array de líneas de texto como entrada en una variable de array llamada @lines y luego escribimos el contenido de todo el archivo en un archivo llamado Copyof_GFG_Slurp2.txt como una sola string.
Ejemplo 3: Creando una función para usar el método slurp
 

# Perl code to illustrate the slurp function
use strict;
use warnings;
use File::Slurp;
 
# calling user defined function
get_a_string();
 
sub get_a_string
{
  # read entire file into a scalar
  my $gfg_str = read_file('C:\Users\GeeksForGeeks\GFG_User_Slurp.txt');
  
  # write entire file from a scalar
  write_file('C:\Users\GeeksForGeeks\Copyof_GFG_User_Slurp.txt', $gfg_str);
}

Producción : 
 

Explicación:
en el código de Perl anterior, las advertencias y estrictas permiten al usuario ingresar el código de manera más liberal y detectar errores antes, como errores tipográficos en los nombres de las variables, etc. Llamamos a una función definida por el usuario llamada get_a_string que a su vez ejecuta la función slurp, es decir. , lee un archivo que contiene algunas líneas de texto como entrada en una variable llamada gfg_str y luego escribe el contenido del archivo completo en un archivo como una sola string.