perl | Función grep()

La función grep() en Perl solía extraer cualquier elemento de la array dada que evalúa el valor verdadero de la expresión regular dada.

Sintaxis: grep(Expresión, @Array) 

Parámetros:

• Expresión: es la expresión regular que se utiliza para ejecutarse en cada elemento de la array dada.
• @Array: es la array dada en la que se llama a la función grep().

Devuelve: cualquier elemento de la array dada que evalúa el valor verdadero de la expresión regular dada.

Ejemplo 1: 

#!/usr/bin/perl
 
# Initialising an array of some elements
@Array = ('Geeks', 'for', 'Geek');
 
# Calling the grep() function
@A = grep(/^G/, @Array);
 
# Printing the required elements of the array
print @A;

Producción:

GeeksGeek

En el código anterior, la expresión regular /^G/ se usa para obtener el elemento que comienza con ‘G’ de la array dada y descartar los elementos restantes. Ejemplo 2: 

#!/usr/bin/perl
 
# Initialising an array of some elements
@Array = ('Geeks', 1, 2, 'Geek', 3, 'For');
 
# Calling the grep() function
@A = grep(/\d/, @Array);
 
# Printing the required elements of the array
print @A;

Producción :

123

En el código anterior, la expresión regular /^d/ se usa para obtener el valor entero de la array dada y descartar los elementos restantes.

 Ejemplo 3: 

#!/usr/bin/perl
 
# Initialising an array of some elements
@Array = ('Ram', 'Shyam', 'Rahim', 'Geeta', 'Sheeta');
 
# Calling the grep() function
@A = grep(!/^R/, @Array);
 
# Printing the required elements of the array
print @A;

Producción :

ShyamGeetaSheeta

En el código anterior, la expresión regular !/^R/ se usa para obtener los elementos que no comienzan con ‘R’ y descartar los elementos que comienzan con ‘R’.