Fonction Perl chomp

La description

Cette version plus sûre de chop supprime toute chaîne de fin qui correspond à la valeur actuelle de $ / (également appelée $ INPUT_RECORD_SEPARATOR dans le module anglais). Il renvoie le nombre total de caractères supprimés de tous ses arguments. Par défaut, $ / est défini sur le caractère de nouvelle ligne.

Syntaxe

Voici la syntaxe simple de cette fonction -

chomp VARIABLE

chomp( LIST )

chomp

Valeur de retour

Cette fonction renvoie Integer, nombre d'octets supprimés pour toutes les chaînes.

Exemple

Voici l'exemple de code montrant son utilisation de 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";

Lorsque le code ci-dessus est exécuté, il produit le résultat suivant -

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