perl grep and map

Perl中的grep可以从列表中取出某些需要的元素。grep 第一个参数是一个块，其中$_依次为列表中的每一个值，返回一个Boolean(true/false)值。剩下的参数是相应的列表。grep 会首先计算表达式的值，这和foreach 循环一致。如果块中最后一个表达式的返回值为true，则这个元素会被返回。

1> my @test = grep { $_ % 2} 1...10

输出@test:

$VAR1 = 1;
$VAR2 = 3;
$VAR3 = 5;
$VAR4 = 7;
$VAR5 = 9;

my @test =grep { $_ % 2-1} 1...10

$VAR1 = 2;
$VAR2 = 4;
$VAR3 = 6;
$VAR4 = 8;
$VAR5 = 10;

还有另一种写法， 用逗号隔开： my @test = grep  $_ % 2-1 , 1...10;

对应的foreach的写法是：

foreach (1...10){

  push @test, $_ if $_ % 2 -1;

}

2. 从文件中读取：

use Data::Dumper;
my @test;
open FIFL, "<ping_host.cfg";
@test = grep /\bprint\b/i, <FIFL>;
print Dumper(@test);

在grep中使用\b是单词界定符，\<是单词开始 \>是单词结束

map的使用方法跟grep很类似：map是对列表项进行变换：

eg：

use Data::Dumper;
sub big_money(){
    my $d = shift;
    my $number = sprintf("%.2f",$d);
    while($number =~ s/^(-?\d+)(\d\d\d)/$1,$2/){};  #每三位加一个逗号
    $number =~ s/^(-?)/$1\$/;   #加美元符号
    return $number;
}

my @data = (4.75, 12.6,133754.456,-369);

my @res  = map {&big_money($_);} @data; #依次取出@data中的一个元素，调用big_money函数处理
print Dumper(@res);

result：

$VAR1 = '$4.75';
$VAR2 = '$12.60';
$VAR3 = '$133,754.46';
$VAR4 = '-$369.00';