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