Perl grep()函数

Perl中的grep()函数用于从给定的数组中提取任何元素，这些元素在给定的正则表达式中评估为真值。

语法： grep(Expression, @Array)

参数

Expression : 它是正则表达式，用于在给定数组的每个元素上运行。
@Array : 它是调用grep()函数的给定数组。

返回： 给定数组中的任何元素，在给定的正则表达式中评估为真值。

例子 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;

输出

GeeksGeek

在上面的代码中，正则表达式 /^G/ 被用来从给定的数组中获取以’G’开头的元素，并丢弃其余的元素。例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;

输出:

在上面的代码中，正则表达式 /^d/ 被用来从给定的数组中获取整数值，并丢弃剩余的元素。

例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;

输出: