学习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函数 完~