perl | función chomp()

La función chomp() en Perl se usa para eliminar el último salto de línea final de la string de entrada.

Sintaxis: chomp(String)

Parámetros:
String: String de entrada cuya nueva línea final se eliminará

Devuelve: el número total de saltos de línea finales eliminados de todos sus argumentos

Ejemplo 1:

#!/usr/bin/perl
  
# Initialising a string
$string = "GfG is a computer science portal\n";
  
# Calling the chomp() function
$A  = chomp($string);
  
# Printing the chopped string and 
# removed trailing newline character
print "Chopped String is : $string\n";
print "Number of Characters removed : $A";

Chopped String is : GfG is a computer science portal
Number of Characters removed : 1

En el código anterior, se puede ver que la string de entrada contiene un carácter de nueva línea (\n) que se elimina con la función chomp().

Ejemplo 2:

#!/usr/bin/perl
  
# Initialising two strings
$string1 = "Geeks for Geeks\n\n";
$string2 = "Welcomes you all\n";
  
# Calling the chomp() function
$A  = chomp($string1, $string2);
  
# Printing the chopped string and 
# removed trailing newline character
print "Chopped String is : $string1$string2\n";
print "Number of Characters removed : $A\n";

Chopped String is : Geeks for Geeks
Welcomes you all
Number of Characters removed : 2

En el código anterior, se puede ver que la string de entrada 1 contiene dos caracteres de nueva línea (\n\n) de los cuales solo se elimina el último carácter de nueva línea mediante la función chomp() y se utiliza el penúltimo carácter de nueva línea que se puede ver en el producción.