Função Perl chomp

Descrição

Esta versão mais segura do chop remove qualquer string final que corresponda ao valor atual de $ / (também conhecido como $ INPUT_RECORD_SEPARATOR no módulo em inglês). Ele retorna o número total de caracteres removidos de todos os seus argumentos. Por padrão, $ / é definido como um caractere de nova linha.

Sintaxe

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

chomp VARIABLE

chomp( LIST )

chomp

Valor de retorno

Esta função retorna Integer, número de bytes removidos para todas as strings.

Exemplo

A seguir está o código de exemplo que mostra seu 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";

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

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