Uso de bucle foreach en perl
Sintaxis
Diferentes sintaxis de para cada El bucle se proporciona a continuación.
A. foreach var (array)
declaraciones);
El bucle foreach anterior se usa para iterar los valores de la matriz.
B. foreach var (file_handler)
declaraciones);
El bucle foreach anterior se usa para leer el contenido de un archivo.
C. foreach var ()
declaraciones);
El bucle foreach anterior se usa para leer las entradas del usuario.
Se han mostrado diferentes usos del bucle foreach en la siguiente parte de este tutorial.
Ejemplo-1: lea una matriz unidimensional
Cree un archivo de Perl con el siguiente código que iterará los valores de una matriz unidimensional utilizando un para cada bucle e imprima cada valor de la matriz en una línea. Se ha definido una matriz de 5 valores de cadena en el código. En cada iteración del bucle, cada valor de la matriz se analizará e imprimirá en la salida con la nueva línea.
# Declarar una matriz de valores de cadena
@students = ("Mir Sabbir", "Meena Chowdhury", "Lisa Rahman", "Nirob Hossain", "Keya Khan");
# Iterar los valores de la matriz usando el bucle foreach
foreach $ value (@students)
# Imprima el valor de la matriz
imprimir "$ valor \ n";
Producción
La siguiente salida aparecerá después de ejecutar el código anterior.
Ejemplo-2: Lea una matriz bidimensional
Cree un archivo Perl con el siguiente código que iterará los valores de una matriz bidimensional utilizando un para cada bucle e imprima cada valor de la matriz en una línea. Se ha definido una matriz bidimensional de 4 filas y 3 columnas en el código. Se ha agregado una línea nueva adicional después de iterar todos los valores de una fila. Los valores de cada fila se han analizado utilizando la variable de objeto definida en el bucle.
# Declarar una matriz bidimensional
@students = (
id => '20227856',
nombre => 'Neha Ali',
marcas => 89
,
id => '20224523',
nombre => 'Mizanur Rahman',
marcas => 95
,
id => '20221278',
nombre => 'Ruhul Amin',
marcas => 69
,
id => '20228956',
nombre => 'Mehrab Hossain',
marcas => 70
,
);
# Iterar los valores de la matriz
foreach $ std (@students)
# Imprima los valores de la matriz
Imprima "ID de estudiante:", $ std-> 'id', "\ n";
imprima "nombre del estudiante:", $ std-> 'name', "\ n";
Imprima "Marcas del estudiante:", $ Std-> 'Marks', "\ n \ n";
Producción
La siguiente salida aparecerá después de ejecutar el código anterior.
Ejemplo-3: lea el rango de valores
Crear un archivo perl con el siguiente código que iterará el para cada bucle basado en los valores de una matriz de rango. En cada iteración, se tomará un valor de número del usuario y se insertará en una matriz. Los valores de esta matriz se imprimirán después de completar la iteración del bucle.
# Declarar una matriz
@líneas;
# Iterar el bucle 4 veces
foreach $ números (1 ... 4)
# Imprimir mensaje para el usuario
imprimir "Ingrese un número:";
# Tome la entrada del usuario
$ línea =;
# Agregue el valor de entrada a la matriz
Push @lines, $ line;
# Imprima los valores de la matriz
imprimir "\ los valores de narray son: \ n", @lines;
Producción
La siguiente salida aparecerá después de ejecutar el código anterior.
Ejemplo-4: lea el contenido de un archivo
Crea un texto llamado mi archivo.TXT con el siguiente contenido antes de probar el código de este ejemplo.
mi archivo.TXT
Perl es un lenguaje de programación de propósito general.
Es similar en la sintaxis al lenguaje C.
Es un lenguaje de código abierto e interpretado.
Cree un archivo Perl con el siguiente código que lea el contenido del mi archivo.archivo txt e imprima el contenido del archivo utilizando un para cada bucle. El abierto() La función se ha utilizado en el código para abrir el archivo para leer. El "<” symbol is used to open a file for reading in PERL. Next, the para cada El bucle se ha utilizado para leer e imprimir el contenido del archivo línea por línea.
# Establecer el nombre de archivo
$ filename = 'myfile.TXT';
# Abra el archivo para leer
Abra $ file_handler, '<', $filename or die "Unable to open $filename file.";
# Lea cada línea del archivo usando Foreach Loop
foreach $ line ()
# Imprima la línea del archivo
imprimir $ línea;
Producción
La siguiente salida aparecerá después de ejecutar el código anterior si el mi archivo.TXT El archivo no existe en la ubicación actual.
Después de crear el mi archivo.TXT archivo, aparecerá la siguiente salida después de ejecutar el script anterior.
Ejemplo-5: controle el bucle foreach usando la palabra clave "Última"
Crear un archivo perl con el siguiente código en el que para cada El bucle se terminará utilizando el último palabra clave basada en el "si" condición. El para cada El bucle iterará 10 veces en función de la matriz de rango. El bucle se terminará después de iterar el bucle 4 veces.
# Defina el bucle para iterar 10 veces
foreach $ número (1 ... 10)
# Imprima el valor actual
imprimir "El número actual es $ número.\norte";
#Termina el bucle en función de la condición 'if'
Último si $ número> 3;
# Imprimir el mensaje de terminación
imprimir "el bucle está terminado.\norte";
Producción
La siguiente salida aparecerá después de ejecutar el código anterior.
Ejemplo-6: lea los valores de múltiples matrices
Cree un archivo Perl con el siguiente código que imprima los valores de dos matrices numéricas utilizando una sola para cada bucle. Los valores de dos matrices y los valores fusionados de estas matrices se imprimirán después de ejecutar el código.
# Defina la primera matriz
@array1 = (20, 30, 65);
# Defina la segunda matriz
@array2 = (45, 18, 60, 11);
Imprima "Los primeros valores de la matriz son: \ n", unirse (",@array1)," \ n ";
Imprima "Los valores de la segunda matriz son: \ n", unirse (",@array2)," \ n ";
imprimir "Los valores de ambas matrices son: \ n";
# Lea los valores de ambas matrices usando bucle
foreach $ number ( @array1, @array2)
# Imprima el valor de la matriz
Imprimir "$ Número";
imprimir "\ n";
Producción
La siguiente salida aparecerá después de ejecutar el código anterior
Conclusión
Las formas de usar el foreach bucle para analizar matrices unidimensionales, matrices bidimensionales, matrices múltiples y el contenido del archivo se ha mostrado en este tutorial para ayudar al usuario de Perl a conocer los usos de los usos de los usos de los usos de los usos de los usos de los usos de para cada bucle en perl correctamente.