Función perl chomp

"El Función Chomp () es una función incorporada de Perl para eliminar el carácter Newline (\ n) desde el final de la cadena y el número de caracteres de Newline eliminado por esta función. Esta función se puede usar en el script cuando requiere leer los datos de la cadena después de eliminar el carácter Newline. El valor de cadena particular se puede eliminar del texto utilizando el Función Chomp () que se almacena en el $/ ($ Input_record_separator). Perl tiene otra función incorporada nombrada cortar() que elimina el último carácter de los datos de la cadena, que puede ser un carácter nuevo o cualquier otro carácter. Los usos del Función Chomp () y las diferencias entre el Funciones de Chomp () y Chop () se han mostrado en este tutorial."

Sintaxis

A continuación se muestran diferentes sintaxis de la función Chomp ().

acompañar

La sintaxis anterior se usa para eliminar la nueva línea del valor de la variable $ _.

Chomp (cadena)

La sintaxis anterior se usa para eliminar la nueva línea de la variable de cadena.

Chomp (matriz)

La sintaxis anterior se usa para eliminar la nueva línea de la variable de matriz.

Esta función devuelve el número de líneas nuevas eliminadas de la variable escalar o cadena, o matriz. Se han mostrado diferentes usos de la función chomp () en la siguiente parte del tutorial.

Ejemplo-1: eliminar la nueva línea de la variable escalar

Cree un archivo Perl con el siguiente código que eliminará la nueva línea de la escalar variable. Se ha definido un valor de cadena en la variable escalar aquí. El Función Chomp () se ha utilizado sin ningún argumento en este código para eliminar la nueva línea de la variable escalar. El valor del escalar La variable se ha impreso antes y después de usar el Función Chomp ().

imprima "el valor de la variable escalar antes de chomp (): \ n";
# Defina la variable especial $ _
$ _ = "Linuxhint \ n";
# Imprima el $ _ antes de eliminar Newline
imprimir;
# Eliminar la nueva línea del valor de $ _
$ Total = Chomp;
# Imprimir el número total de caracteres eliminados
imprimir "personaje total eliminado: $ total \ n";
imprima "el valor de la variable escalar después de chomp (): \ n";
# Imprima el $ _ después de eliminar Newline
imprimir;

Producción

La siguiente salida aparecerá después de ejecutar el código anterior.

Ejemplo-2: Eliminar Newline de la variable de cadena

Cree un archivo Perl con el siguiente código que eliminará la nueva línea del valor de la cadena. Se ha declarado en el código una variable de cadena con 2 caracteres newline en el código. La primera Función Chomp () eliminará el último personaje nuevo y el segundo Función Chomp () eliminará el próximo personaje de Newline. El tercero Función Chomp () no eliminará nada.

# Defina una variable de cadena con dos caracteres de Newline
$ str = "Programación perl \ n \ n";
# Eliminar la nueva línea de la cadena si existe
$ num = chomp ($ str);
imprima "el valor de la cadena después de eliminar Newline: $ str \ n";
# Imprimir el número total de carácter eliminado
Imprimir "Total de carácter eliminado (s): $ num \ n";
# Eliminar la nueva línea de la cadena si existe
$ num = chomp ($ str);
imprima "el valor de la cadena después de eliminar Newline: $ str \ n";
# Imprimir el número total de carácter eliminado
Imprimir "Total de carácter eliminado (s): $ num \ n";
# Eliminar la nueva línea de la cadena si existe
$ num = chomp ($ str);
imprima "el valor de la cadena después de eliminar Newline: $ str \ n";
# Imprimir el número total de carácter eliminado
Imprimir "Total de carácter eliminado (s): $ num \ n";

Producción

La siguiente salida aparecerá después de ejecutar el código anterior.

Ejemplo-3: eliminar Newline de las variables múltiples

Cree un archivo Perl con el siguiente código que eliminará la nueva línea de las variables múltiples. Se han definido dos variables de cadena con Newline en el código. A continuación, el chomp () se ha utilizado en el código para eliminar las nuevas líneas de ambas variables. La salida del Función Chomp () se ha impreso más tarde.

# Defina las variables de múltiples cadenas
$ lenguaje = "perl \ n";
$ sitio web = "Linuxhint.com \ n ";
# Use la función Chomp para múltiples variables
$ output = chomp ($ idioma, $ sitio web);
# Imprima las variables picadas con otros datos de cadena
Imprima "Aprenda $ idioma de $ sitio web \ n";
# Imprimir el valor devuelto por la función Chomp
imprimir "número total de nueva línea eliminada: $ output \ n";

Producción

La siguiente salida aparecerá después de ejecutar el código anterior.

Ejemplo-4: elimine la cadena particular de otra cadena

El Chomp () se puede usar para eliminar un carácter o cadena en particular definiendo la variable de separador de registro de entrada (IRS). Cree un archivo Perl con el siguiente código que eliminará la palabra "pista"De una variable de cadena. Se ha definido una variable de cadena en el código que contiene la palabra "pista"3 veces al final de la cadena. La variable IRS se ha utilizado aquí para almacenar la palabra "pista."A continuación, la función Chomp () se llamó 3 veces para eliminar la palabra"pista"De la cadena principal.

# Defina una variable de cadena
$ str = "aprender perl de linuxhinthinttint";
# Establecer el separador de registro de entrada
$/ = 'Sugerencia';
# Imprima la variable de cadena antes de usar Chomp
imprimir $ str, "\ n";
Chomp $ str;
# Imprima la variable de cadena después de aplicar Chomp por primera vez
imprimir $ str, "\ n";
Chomp $ str;
# Imprima la variable de cadena después de aplicar Chomp por segunda vez
imprimir $ str, "\ n";
Chomp $ str;
# Imprima la variable de cadena después de aplicar Chomp por tercera vez
imprimir $ str, "\ n";

Producción

La siguiente salida aparecerá después de ejecutar el código anterior.

Ejemplo-5: elimine una nueva línea de cada valor de matriz

Cree un archivo Perl con el siguiente código que eliminará la nueva línea de cada valor de una matriz. El Función Chomp () se ha utilizado con la matriz para eliminar la nueva línea de los valores de la matriz. Los valores de la matriz antes y después de eliminar la nueva línea y la salida del Función Chomp () se imprimirá después de ejecutar el código.

# Defina una matriz de valores de cadena con Newline
$ flores = ["rosa \ n", "lirio \ n", "flor de sol \ n", "cosmos \ n", "marina \ n"];
# Imprimir los valores de la matriz principales
imprima "los valores de la matriz antes de usar Chomp: \ n @$ flores \ n";
# Eliminar la nueva línea de cada valor de la matriz
$ output = chomp @$ flores;
# Imprimir la salida de la función Chomp
imprimir "Total NewLine eliminado: $ Output \ n";
# Imprimir los valores de matriz modificados
imprima "los valores de la matriz después de usar Chomp: \ n @$ flores \ n";

Producción

La siguiente salida aparecerá después de ejecutar el código anterior.

Conclusión

La forma de usar la función chomp () para eliminar la línea nueva o la cadena particular de la variable se ha mostrado aquí utilizando múltiples ejemplos de perl. Espero que este tutorial ayude a los usuarios de Perl a conocer el uso de esta función correctamente.