Función perl chop

Descripción

Esta función elimina el último carácter de EXPR, cada elemento de LIST, o $ _ si no se especifica ningún valor.

Sintaxis

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

chop VARIABLE

chop( LIST )

chop

Valor devuelto

Esta función devuelve el carácter eliminado de EXPR y en el contexto de la lista, el carácter se elimina del último elemento de LIST.

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  = chop( $string1 );

print " Choped String is : $string1\n";
print " Character removed : $retval\n";

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

Choped String is : This is tes
Number of characters removed : t