Función Perl chomp

Descripción

Esta versión más segura de chop elimina cualquier cadena final que corresponda al valor actual de $ / (también conocido como $ INPUT_RECORD_SEPARATOR en el módulo en inglés). Devuelve el número total de caracteres eliminados de todos sus argumentos. De forma predeterminada, $ / se establece en un carácter de nueva línea.

Sintaxis

A continuación se muestra la sintaxis simple para esta función:

chomp VARIABLE

chomp( LIST )

chomp

Valor devuelto

Esta función devuelve Entero, número de bytes eliminados para todas las cadenas.

Ejemplo

A continuación se muestra el código de ejemplo que muestra su uso básico:

#!/usr/bin/perl

$string1 = "This is test";
$retval  = chomp( $string1 );

print " Choped String is : $string1\n";
print " Number of characters removed : $retval\n";

$string1 = "This is test\n";
$retval  = chomp( $string1 );

print " Choped String is : $string1\n";
print " Number of characters removed : $retval\n";

Cuando se ejecuta el código anterior, produce el siguiente resultado:

Choped String is : This is test
Number of characters removed : 0
Choped String is : This is test
Number of characters removed : 1