Funzione Perl chomp

Descrizione

Questa versione più sicura di chop rimuove qualsiasi stringa finale che corrisponde al valore corrente di $ / (noto anche come $ INPUT_RECORD_SEPARATOR nel modulo inglese). Restituisce il numero totale di caratteri rimossi da tutti i suoi argomenti. Per impostazione predefinita, $ / è impostato sul nuovo carattere di riga.

Sintassi

Di seguito è riportata la semplice sintassi per questa funzione:

chomp VARIABLE

chomp( LIST )

chomp

Valore di ritorno

Questa funzione restituisce Integer, numero di byte rimossi per tutte le stringhe.

Esempio

Di seguito è riportato il codice di esempio che mostra il suo utilizzo di base:

#!/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 viene eseguito il codice sopra, produce il seguente risultato:

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