perl map-map用法示例和grep的用法

1.转换文件名为文件大小

@sizes=map{-s$_}@file_names;

-s是个文件测试操作符，它返回某个文件的size。所以上面这句就返回@file_names数组里每个文件的大小，结果也是个数组。

2.转换数组到hash：找到某个数组值的索引

代替重复的搜索数组，我们可以用map来转换数组到hash，并通过hash关键字来进行直接查找。如下的map用法相对于重复的数组搜索，更简单高效。

@teams=qw(MiamiOregonFloridaTennesseeTexas
OklahomaNebraskaLSUColoradoMaryland);
%rank=map{$teams[$_],$_+1}0..$#teams;
print"Colorado:$rank{Colorado}/n";
print"Texas:$rank{Texas}(hook'em,Horns!)/n";

打印结果是：
Colorado:9
Texas:5(hook'em,Horns!)

上述code容易理解哦，0..$#teams是个列表，$#teams代表@teams最后一个元素的下标值（这里是9），所以这个列表就是0-9这几个数了。map遍历上述列表，将每个列表元素临时设置为$_，并对$_在中间的{}里进行计算；{$teams[$_],$_+1}，这里每次计算后返回一个2元素的列表，列表结果是某个数组值和对应的数组下标加1，明白了呀？

由于对每个LIST元素进行计算时，都产生一个2元素的列表，所以总的map结果就可看作一个hash了。hash关键字就是数组元素，hash值是对应的数组下标加1。

3.转换数组到hash：查找拼错单词

转换数组到hash是map的最普遍用法。在本示例里，hash的值是无关紧要的，我们仅检查hash关键字是否存在。

%dictionary=map{$_,1}qw(catdogmanwomanhatglove);
@words=qw(dogkatwimenhatmangloove);
foreach$word(@words){
if(not$dictionary{$word}){
print"Possiblemisspelledword:$word/n";
}
}

打印结果是：
Possiblemisspelledword:kat
Possiblemisspelledword:wimen
Possiblemisspelledword:gloove

看看第1句的map用法，它跟前面示例里的差不多哦。qw()这里是个列表，map对这个列表里的每个元素进行{$_,1}计算，每次计算的结果返回一个2元素的列表，换句话说，就是%dictionary的key和value呀。所以map最终的结果就是一个hash了，关键字是qw()里的元素，值总是1，无关紧要的。

然后下面的foreach语句就容易了哦，如果@words里的元素不构成%dictionary的关键字的话，就打印一条出错消息。如果把%dictionary看成标准字典的话，那么就可用它来检验你自己的@words字库里是否有错字了呀。

4. 转换数组到hash：存储选中的CGI参数

hash通常是存储传递给程序或子函数的参数的最便利的方法，而map通常是创建这个hash的最便利的方法。

useCGIqw(param);
%params=map{$_,(param($_))[0]}
grep{lc($_)ne'submit'}param();

这里要了解一下CGI模块的基本知识。param()调用返回CGI参数名的列表；param($_)调用返回指定的CGI参数名的值。假如 param($_)返回某个CGI参数的多个值，那么(param($_))[0]只取第一个值，以便hash仍被良好定义。

上述 code的意思是，将param()的结果作为输入列表，它的元素是多个CGI参数名，然后从这些参数名里grep出参数名不等于'submit'的，结果是一个临时列表，map的{$_,(param($_))[0]}语句再次遍历这个临时列表，并获取到参数名，和对应的参数值，将结果赋给%params。所以%params里就存储了页面提交过来的，除了submit外的其他CGI参数名和参数值（只取第1个）。

很巧妙的用法，是不是？它结合用了map和grep，使code显得很简洁。

5.产生随机密码

@a=(0..9,'a'..'z');
$password=join'',map{$a[intrand@a]}0..7;
print"$password/n";

每次运行它会得到不同的结果，但长度总是8位，由0..7这个决定。如下是可能的输出：

y2ti3dal

它是个随机值，也许你能用它来做密码。

这里，需要先明白几个函数，rand产生一个随机值，它后面的@a其实是个标量哦，表示@a数组的长度，rand@a的结果可能是个小数，所以再用int函数来取整。intrand@a的结果是个整数，它>;=0但小于@a的长度。所以$a[intrand@a]就表示从@a数组里随机取出一个字符了。0..7表示总共取8次，返回的结果再用join连接起来，就构成一个8位随机密码了呀。

当然，(0..9,'a'..'z')数组元素太少了，你可以修改它，使其包含大小写字符，数字和标点符号，这样密码强度就高些。

6.从数组元素里剥离数字

不要在EXPR里修改LIST值。如下做法是不好的：

@digitless=map{tr/0-9//d;$_}@array;

它虽然从数组元素里剥离了数字，但同样破坏了该数组，:(

如下做法是good:

@digitless=map{($x=$_)=~tr/0-9//d;
$x;
}@array;

它将tr的结果赋给临时变量$x，并返回$x的值，这样就保护数组了呀。

7.打印"justanotherperlhacker"

printmap({chr}
('10611711511603209711011111610410111'.
'4032112101114108032104097099107101114')
=~/.../g
),"/n";

打印的结果是：
justanotherperlhacker

chr函数将单个数字转换到相应的ASCII字符。()=~/.../g语法以3个数字长度为单位，分割数字串到新的串列表。

比较无聊的用法，还不如用pack()和 unpack()，:P

8.转置矩阵

@matrix=([1,2,3],[4,5,6],[7,8,9]);
foreach$xyz(@matrix){
print"$xyz->;[0]$xyz->;[1]$xyz->;[2]/n";
}
@transposed=
map{$x=$_;
[map{$matrix[$_][$x]}0..$#matrix];
}0..$#{$matrix[0]};
print"/n";
foreach$xyz(@transposed){
print"$xyz->;[0]$xyz->;[1]$xyz->;[2]/n";

打印结果是：

123
456
789

147
258
369

这里稍微有点复杂哦，让我们分2步看看。

@matrix=([1,2,3],[4,5,6],[7,8,9]);
foreach$xyz(@matrix){
print"$xyz->;[0]$xyz->;[1]$xyz->;[2]/n";
}

这里不难明白，([1,2,3],[4,5,6],[7,8,9])是个数组，它的每个元素又是个匿名数组，这样在$xyz遍历数组时，$xyz->;[0],$xyz->;[1],$xyz->;[2]就可以访问到匿名数组里的元素了。所以会打印出：

123
456
789

@transposed=
map{$x=$_;
[map{$matrix[$_][$x]}0..$#matrix];
}0..$#{$matrix[0]};

这里复杂点，0..$#{$matrix[0]}是个列表，$#{$matrix[0]}表示$matrix[0]这个匿名数组的最大下标值，0..$#{$matrix[0]}表示矩阵的横向。$x=$_;这里将$_的值赋给$x，为什么呢？因为它后面又有个map嘛，$_的值会改变的，所以要先存储起来。外围的map返回的值是[]里的map计算出来的一个列表，以[]匿名数组形式返回。[]里面的map是这样的，它的输入LIST是 0..$#matrix，表示矩阵的纵向了。$matrix[$_][$x]这里先纵再横，就把矩阵值置换了一下。所以返回的结果列表 @transposed就包含置换后的矩阵了哦。

是否有点糊涂？那举例看看。这样看可能好点：

[1,2,3],
[4,5,6],
[7,8,9]

外围的map遍历时，先是横向下标遍历，停留在横向0位。然后第二个map，就是纵向下标遍历了，它要遍历所有纵向下标，这样在横向0位，就先返回[1,4,7]的列表了，然后在横向1位，又返回[2,5,8]的列表，最后在横向2位，返回[3,6,9]的列表。

9. 查找质数：警示用法

foreach$num(1..1000){
@expr=map{'$_%'.$_.'&&'}2..intsqrt$num;
if(eval"grep{@expr1}$num"){print"$num"}
}

打印结果是：
12357111317192329313741434753596167...

该code能工作，但它如此麻烦，违背了程序最基本的明晰法则。用如下直观的code代替它就可以了呀：

CANDIDATE:foreach$num(1..1000){
foreach$factor(2..intsqrt$num){
unless($num%$factor){nextCANDIDATE}
}
print"$num";

 

#!/usr/bin/perl
use warnings;
use strict;

my @list;
my @number;

open(INFILE, "/home/liuguiyou/alignment_2.txt");
open(OUTFILE, ">/home/liuguiyou/query.txt") ||   die "Cannot open the newfile: $!/n";

while(<INFILE>){
chomp;
@list=split;
@number=grep(/Query/, @list);

print OUTFILE "@number/n"; # or print OUTFILE "$_/n";
               }
exit;





output:
Query=SNP1 Query:
Query=SNP2 Query:
Query=SNP3 Query:
Query=SNP4 Query:
Query=SNP5 Query:
Query=SNP6 Query:
Query=SNP7 Query:
Query=SNP8 Query:
Query=SNP9 Query:
Query=SNP10 Query:

or print OUTFILE "$_/n"; output:
Query=SNP1  Query: 1     aattttggtggcagagatgg-tagtggttgctcagaaaacca 41
Query=SNP2  Query: 1     aaaaagaaacagaaatggttgtactagtgagaaagaagaaa 41
Query=SNP3  Query: 1     cacctactcccaccaccaaaaagcctccttctctttaccat 41
Query=SNP4  Query: 1     tttggcaattcttttacaagcccttggtcctgttttctcca 41
Query=SNP5  Query: 1      gaaaacgcatacgccatcctgattaaccaaacacacatatg 41
Query=SNP6  Query: 1      tatacaaaaaatttgatacatttttgataaacacattttga 41
Query=SNP7  Query: 1      tctgatttgaattccattttatcagactctcatccgtgcaa 41
Query=SNP8  Query: 1      gcgacactgagaagagacgatgagggaggtatgtgactata 41
Query=SNP9  Query: 1      aagatcacgaggcagagtttcgccacatgtccttcattgtt 41
Query=SNP10  Query: 1      gtggaaagatgatacagagtagagagatttcttcttcttct 41


map和grep都是列表处理函数，它们将一个列表转换成另一个列表。它们的语法如下：

map expression_r_r_r_r_r_r_r,LIST;
map BLOCK,LIST;
grep expression_r_r_r_r_r_r_r,LIST;
grep BLOCK,LIST;


map的目的是逐个转换列表中的元素，并产生一个新的列表作为结果，而grep是通过表达式或者程序块被计算为True或False值来返回原始列表的一个子集列表。

下面举例说明map的用法:
[liuguiyou@localhost ~]$ cat perl/map.pl
#!/usr/bin/perl -w
use strict;

my @numbers=(80,101,114,108);
my @list= map (chr,@numbers);
print @list;
print "/n";
;

  [liuguiyou@localhost ~]$ perl perl/map.pl
Perl


下面的用法也可以:
[root@test doc2sort]# cat map.pl

#!/usr/bin/perl -w
use strict;

my @numbers=(80,101,114,108);
print map {chr $_} @numbers;
print "/n";

[root@test doc2sort]# perl map.pl
Perl

当然我们也可以用foreach循环做同样的事，但map做的更简洁些。




grep的用法也是非常的简单:
[root@test doc2sort]# cat grep.pl

#!/usr/bin/perl -w
use strict;

my @list=(80,101,"hello","world",114,108);
my @number=grep {/^/d+/} @list;
print "@number/n";
[root@test doc2sort]# perl grep.pl
80 101 114 108


当然我们也可以用map来实现:
my @number=map {/^/d+/?$_:()} @list;
注意到()是不返回任何东西。