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