Fonction Perl Chomp

"Le Fonction chomp () est une fonction intégrée de Perl pour supprimer le caractère Newline (\ n) de la fin de la chaîne et le nombre de caractères Newline supprimés par cette fonction. Cette fonction peut être utilisée dans le script lorsqu'elle nécessite la lecture des données de chaîne après avoir supprimé le caractère Newline. La valeur de chaîne particulière peut être supprimée du texte en utilisant le Fonction chomp () qui est stocké dans le $ / ($ Input_record_separator). Perl a une autre fonction intégrée nommée hacher() qui supprime le dernier caractère des données de chaîne, qui peut être un caractère Newline ou tout autre caractère. Les utilisations du Fonction chomp () et les différences entre le fonctions chomp () et chouch () ont été montrés dans ce tutoriel."

Syntaxe

Différentes syntaxes de la fonction chomp () sont présentées ci-dessous.

chomper

La syntaxe ci-dessus est utilisée pour supprimer la nouvelle ligne de la valeur de la variable $ _.

chomp (String)

La syntaxe ci-dessus est utilisée pour supprimer la nouvelle ligne de la variable de chaîne.

chomp (tableau)

La syntaxe ci-dessus est utilisée pour supprimer la nouvelle ligne de la variable du tableau.

Cette fonction renvoie le nombre de nouvelles lignes supprimées de la variable scalaire ou de la chaîne, ou tableau. Différentes utilisations de la fonction chomp () ont été montrées dans la partie suivante du tutoriel.

Exemple-1: supprimer la nouvelle ligne de la variable scalaire

Créez un fichier perl avec le code suivant qui supprimera la nouvelle ligne de la scalaire variable. Une valeur de chaîne a été définie dans la variable scalaire ici. Le Fonction chomp () a été utilisé sans aucun argument dans ce code pour supprimer la nouvelle ligne de la variable scalaire. La valeur du scalaire la variable a été imprimée avant et après avoir utilisé le Fonction chomp ().

Imprimez "la valeur de la variable scalaire avant chomp (): \ n";
# Définir la variable spéciale $ _
$ _ = "Linuxhint \ n";
# Imprimez le $ _ avant de retirer Newline
imprimer;
# Supprimer la nouvelle ligne de la valeur de $ _
$ total = chomp;
# Imprimez le nombre total de caractères supprimés
Imprimer "Caractère total supprimé: $ Total \ n";
Imprimez "la valeur de la variable scalaire après chomp (): \ n";
# Imprimez le $ _ après avoir retiré Newline
imprimer;

Sortir

La sortie suivante apparaîtra après avoir exécuté le code ci-dessus.

Exemple-2: supprimer la nouvelle ligne de la variable de chaîne

Créez un fichier perl avec le code suivant qui supprimera la nouvelle ligne de la valeur de chaîne. Une variable de chaîne avec 2 caractères Newline a été déclarée dans le code. La première Fonction chomp () Supprimera le dernier caractère Newline, et le second Fonction chomp () Supprimera le prochain caractère Newline. Le troisième Fonction chomp () ne supprime rien.

# Définissez une variable de chaîne avec deux caractères Newline
$ str = "Programmation perl \ n \ n";
# Supprimer la nouvelle ligne de la chaîne si existe
$ num = chomp ($ str);
Imprimez "la valeur de la chaîne après avoir supprimé Newline: $ str \ n";
# Imprimez le nombre total de caractère supprimé
imprimer "Caractère (s) supprimé total: $ num \ n";
# Supprimer la nouvelle ligne de la chaîne si existe
$ num = chomp ($ str);
Imprimez "la valeur de la chaîne après avoir supprimé Newline: $ str \ n";
# Imprimez le nombre total de caractère supprimé
imprimer "Caractère (s) supprimé total: $ num \ n";
# Supprimer la nouvelle ligne de la chaîne si existe
$ num = chomp ($ str);
Imprimez "la valeur de la chaîne après avoir supprimé Newline: $ str \ n";
# Imprimez le nombre total de caractère supprimé
imprimer "Caractère (s) supprimé total: $ num \ n";

Sortir

La sortie suivante apparaîtra après avoir exécuté le code ci-dessus.

Exemple-3: supprimer la nouvelle ligne des multiples variables

Créez un fichier perl avec le code suivant qui supprimera la nouvelle ligne des variables multiples. Deux variables de chaîne avec Newline ont été définies dans le code. Ensuite, le chomp () a été utilisé dans le code pour supprimer les Newlines des deux variables. La sortie du Fonction chomp () a été imprimé plus tard.

# Définir les variables de chaîne multiples
$ Language = "Perl \ n";
$ site Web = "Linuxhint.com \ n ";
# Utilisez la fonction chomp pour plusieurs variables
$ output = chomp ($ language, $ site Web);
# Imprimez les variables hachées avec d'autres données de chaîne
Imprimer "Learn $ Language de $ site Web \ n";
# Imprimer la valeur renvoyée par la fonction chomp
Imprimer "Nombre total de Newline supprimée: $ output \ n";

Sortir

La sortie suivante apparaîtra après avoir exécuté le code ci-dessus.

Exemple-4: supprimez la chaîne particulière d'une autre chaîne

Le chomp () Peut être utilisé pour supprimer un caractère ou une chaîne particulière en définissant la variable de séparateur d'enregistrement d'entrée (IRS). Créez un fichier perl avec le code suivant qui supprimera le mot "indice”À partir d'une variable de chaîne. Une variable de chaîne a été définie dans le code qui contient le mot «indice»3 fois à la fin de la chaîne. La variable IRS a été utilisée ici pour stocker le mot «indice."Ensuite, la fonction chomp () a été appelée 3 fois pour supprimer le mot"indice«De la chaîne principale.

# Définir une variable de chaîne
$ str = "Learn Perl de Linuxhinthinthinthint";
# Définissez le séparateur d'enregistrement d'entrée
$ / = 'indice';
# Imprimez la variable de chaîne avant d'utiliser Chomp
print $ str, "\ n";
Chomp $ Str;
# Imprimez la variable de chaîne après avoir appliqué Chomp pour la première fois
print $ str, "\ n";
Chomp $ Str;
# Imprimez la variable de chaîne après avoir appliqué Chomp pour la deuxième fois
print $ str, "\ n";
Chomp $ Str;
# Imprimez la variable de chaîne après avoir appliqué Chomp pour la troisième fois
print $ str, "\ n";

Sortir

La sortie suivante apparaîtra après avoir exécuté le code ci-dessus.

Exemple-5: supprimer une nouvelle ligne de chaque valeur de tableau

Créez un fichier perl avec le code suivant qui supprimera la nouvelle ligne de chaque valeur d'un tableau. Le Fonction chomp () a été utilisé avec le tableau pour supprimer la nouvelle ligne des valeurs du tableau. Les valeurs du tableau avant et après le retrait de la nouvelle ligne et de la sortie du Fonction chomp () sera imprimé après avoir exécuté le code.

# Définissez un tableau de valeurs de chaîne avec Newline
$ fleurs = ["rose \ n", "Lily \ n", "Sun Flower \ n", "Cosmos \ n", "Daisy \ n"];
# Imprimez les valeurs principales du tableau
Imprimez "les valeurs du tableau avant d'utiliser Chomp: \ n @ $ fleurs \ n";
# Supprimer la nouvelle ligne de chaque valeur de tableau
$ output = chomp @ $ fleurs;
# Imprimez la sortie de la fonction chomp
Imprimer "Total Newline supprimé: $ output \ n";
# Imprimez les valeurs du tableau modifié
Imprimez "les valeurs du tableau après avoir utilisé Chomp: \ n @ $ fleurs \ n";

Sortir

La sortie suivante apparaîtra après avoir exécuté le code ci-dessus.

Conclusion

La façon d'utiliser la fonction chomp () pour retirer la nouvelle ligne ou la chaîne particulière de la variable s'est montrée ici en utilisant plusieurs exemples Perl. J'espère que ce tutoriel aidera les utilisateurs de Perl à connaître correctement l'utilisation de cette fonction.