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