Perl grep函数

学习Perl语言编程中……

介绍:

grep (EXPR, LIST)

Perl grep函数从LIST中提取符合EXPR的值。grep函数是比较常用,也比较好用的一个函数。我在shell里是经常用grep的。Perl grep函数在标量环境中,返回为真的次数。在列表环境中,返回EXPR为真的元素的列表。

例子:

#!/usr/bin/perl

@list = (1,"Test", 0, "foo", 20 );

@has_digit = grep ( /\d/, @list );

print "@has_digit\n";

结果如下:

1 0 20

再来,抓取非真的元素:

#!/usr/bin/perl

@list = (1,"Test", 0, "foo", 20 );

@has_digit = grep ( !/\d/, @list );  #!非真

print "@has_digit\n";

结果如下:

Test foo

试一下在标量环境下返回的结果:

#!/usr/bin/perl

@list = (1,"Test", 0, "foo", 20 );

$has_digit = grep ( /\d/, @list );

print "$has_digit\n";

结果如下:

3  # 输出次数

Perl grep函数 完~

5 回复

评论已关闭。