Utilisation de la boucle foreach à Perl
Syntaxe
Différentes syntaxes de pour chaque une boucle est donnée ci-dessous.
UN. foreach var (array)
déclaration (s);
La boucle ForEach ci-dessus est utilisée pour itérer les valeurs du tableau.
B. foreach var (file_handler)
déclaration (s);
La boucle Foreach ci-dessus est utilisée pour lire le contenu d'un fichier.
C. foreach var ()
déclaration (s);
La boucle ForEach ci-dessus est utilisée pour lire les entrées de l'utilisateur.
Différentes utilisations de la boucle foreach ont été montrées dans la partie suivante de ce tutoriel.
Exemple-1: Lisez un tableau unidimensionnel
Créez un fichier Perl avec le code suivant qui itérera les valeurs d'un tableau unidimensionnel à l'aide d'un pour chaque boucle et imprimez chaque valeur du tableau dans une ligne. Un tableau de 5 valeurs de chaîne a été défini dans le code. Dans chaque itération de la boucle, chaque valeur du tableau sera analysée et imprimée dans la sortie avec la nouvelle ligne.
# Déclarer un tableau de valeurs de chaîne
@students = ("Mir Sabbir", "Meena Chowdhury", "Lisa Rahman", "Nirob Hossain", "Keya Khan");
# Itérer les valeurs du tableau à l'aide de la boucle foreach
foreach $ valeur (@students)
# Imprimer la valeur du tableau
imprimer "$ valeur \ n";
Sortir
La sortie suivante apparaîtra après avoir exécuté le code ci-dessus.
Exemple-2: Lisez un tableau bidimensionnel
Créez un fichier Perl avec le code suivant qui itérera les valeurs d'un tableau bidimensionnel à l'aide d'un pour chaque boucle et imprimez chaque valeur du tableau dans une ligne. Un tableau bidimensionnel de 4 lignes et 3 colonnes a été défini dans le code. Une nouvelle ligne supplémentaire a été ajoutée après avoir itérant toutes les valeurs d'une ligne. Les valeurs de chaque ligne ont été analysées en utilisant la variable d'objet définie dans la boucle.
# Déclarer un tableau bidimensionnel
@students = (
id => '20227856',
nom => 'Neha Ali',
marques => 89
,
id => '20224523',
nom => 'Mizanur Rahman',
marques => 95
,
id => '20221278',
nom => 'ruhul amin',
marques => 69
,
id => '20228956',
nom => 'mehrab hossain',
marques => 70
,
));
# Itérer les valeurs du tableau
foreach $ std (@student)
# Imprimez les valeurs du tableau
imprimer "Student ID:", $ std -> 'id', "\ n";
imprimer "Nom de l'étudiant:", $ std -> 'name', "\ n";
Imprimer "Marques de l'étudiant:", $ std -> 'marks', "\ n \ n";
Sortir
La sortie suivante apparaîtra après avoir exécuté le code ci-dessus.
Exemple-3: Lisez la plage de valeurs
Créez un fichier perl avec le code suivant qui iternera le pour chaque boucle basée sur les valeurs d'un tableau de plage. Dans chaque itération, une valeur de nombre sera tirée de l'utilisateur et insérée dans un tableau. Les valeurs de ce tableau seront imprimées après avoir terminé l'itération de la boucle.
# Déclarer un tableau
@lignes;
# Itérer la boucle 4 fois
nombres de $ foreach (1… 4)
# Imprimer le message pour l'utilisateur
Imprimez "Entrez un numéro:";
# Prenez les commentaires de l'utilisateur
$ line =;
# Ajouter la valeur d'entrée dans le tableau
push @lines, $ line;
# Imprimez les valeurs du tableau
Les valeurs d'impression "\ narray sont: \ n", @lines;
Sortir
La sortie suivante apparaîtra après avoir exécuté le code ci-dessus.
Exemple-4: Lisez le contenu d'un fichier
Créer un texte nommé mon fichier.SMS avec le contenu suivant avant de tester le code de cet exemple.
mon fichier.SMS
Perl est un langage de programmation à usage général.
Il est similaire en syntaxe à la langue C.
C'est une langue open-source et interprétée.
Créez un fichier perl avec le code suivant qui lira le contenu du mon fichier.fichier txt et imprimez le contenu du fichier en utilisant un pour chaque boucle. Le ouvrir() La fonction a été utilisée dans le code pour ouvrir le fichier pour la lecture. Le "<” symbol is used to open a file for reading in PERL. Next, the pour chaque Loop a été utilisé pour lire et imprimer le contenu du fichier ligne par ligne.
# Définissez le nom de fichier
$ filename = 'myfile.SMS';
# Ouvrez le fichier pour la lecture
ouvrir $ file_handler, '<', $filename or die "Unable to open $filename file.";
# Lisez chaque ligne du fichier à l'aide de la boucle foreach
foreach $ line ()
# Imprimez la ligne du fichier
Imprimer la ligne de $;
Sortir
La sortie suivante apparaîtra après avoir exécuté le code ci-dessus si le mon fichier.SMS Le fichier n'existe pas dans l'emplacement actuel.
Après avoir créé le mon fichier.SMS Fichier, la sortie suivante apparaîtra après avoir exécuté le script ci-dessus.
Exemple-5: Contrôlez la boucle foreach en utilisant le «dernier» mot-clé
Créer un fichier perl avec le code suivant dans lequel le pour chaque la boucle sera terminée en utilisant le dernier Mot-clé basé sur le «si" condition. Le pour chaque Loop iratera 10 fois en fonction du tableau de plage. La boucle sera terminée après avoir itérant la boucle 4 fois.
# Définissez la boucle pour itérer 10 fois
Forach $ numéro (1… 10)
# Imprimer la valeur actuelle
Imprimer "Le numéro actuel est le numéro $.\ n ";
# Terminer la boucle en fonction de la condition «si»
dernier si $ numéro> 3;
# Imprimez le message de résiliation
Imprimer "La boucle est terminée.\ n ";
Sortir
La sortie suivante apparaîtra après avoir exécuté le code ci-dessus.
Exemple-6: Lisez les valeurs de plusieurs tableaux
Créez un fichier perl avec le code suivant qui imprimera les valeurs de deux tableaux numériques en utilisant un seul pour chaque boucle. Les valeurs de deux tableaux et les valeurs fusionnées de ces tableaux seront imprimées après avoir exécuté le code.
# Définir le premier tableau
@ array1 = (20, 30, 65);
# Définir le deuxième tableau
@ array2 = (45, 18, 60, 11);
imprimer "Les premières valeurs du tableau sont: \ n", join (", @ array1)," \ n ";
imprimer "Les deuxième valeurs du tableau sont: \ n", join (", @ array2)," \ n ";
imprimer "Les valeurs des deux tableaux sont: \ n";
# Lisez les valeurs des deux tableaux à l'aide de la boucle
Forach $ numéro (@ array1, @ array2)
# Imprimer la valeur du tableau
Imprimer "Numéro $";
imprimer "\ n";
Sortir
La sortie suivante apparaîtra après avoir exécuté le code ci-dessus
Conclusion
Les façons d'utiliser le foreach Boucle pour analyser les tableaux unidimensionnels, les tableaux bidimensionnels, plusieurs tableaux et le contenu de fichier ont été affichés dans ce tutoriel pour aider l'utilisateur Perl à connaître les utilisations du pour chaque boucle correctement dans Perl.