Função de corte Perl

Descrição

Esta função remove o último caractere de EXPR, cada elemento de LIST ou $ _ se nenhum valor for especificado.

Sintaxe

A seguir está a sintaxe simples para esta função -

chop VARIABLE

chop( LIST )

chop

Valor de retorno

Esta função retorna o caractere removido de EXPR e no contexto de lista, o caractere é removido do último elemento de LIST.

Exemplo

A seguir está o código de exemplo que mostra seu uso básico -

#!/usr/bin/perl

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

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

Quando o código acima é executado, ele produz o seguinte resultado -

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