#!/usr/bin/perl -w use strict; my @array = (5, 'a', 'c', 10, 'b' ); my @new_array = (map { $_*2 if m/\d/; } @array); print "@new_array \n" ; print $#new_array;#print join(",", @new_array), "\n";

map用法示例2

1.?轉(zhuǎn)換文件名為文件大小

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

-s是個(gè)文件測(cè)試操作符，它返回某個(gè)文件的size。所以上面這句就返回@file_names數(shù)組里每個(gè)文件的大小，結(jié)果也是個(gè)數(shù)組。

2.?轉(zhuǎn)換數(shù)組到hash：找到某個(gè)數(shù)組值的索引

代替重復(fù)的搜索數(shù)組，我們可以用map來轉(zhuǎn)換數(shù)組到hash，并通過hash關(guān)鍵字來進(jìn)行直接查找。如下的map用法相對(duì)于重復(fù)的數(shù)組搜索，更簡(jiǎn)單高效。

@teams = qw(Miami Oregon Florida Tennessee Texas Oklahoma Nebraska LSU Colorado Maryland); %rank = map { $teams[$_], $_ + 1 } 0 .. $#teams; print "Colorado: $rank{Colorado}\n"; print "Texas: $rank{Texas} (hook 'em, Horns!)\n";

打印結(jié)果是：
Colorado:?9
Texas:?5?(hook?'em,?Horns!)

上述code容易理解哦，0?..$#teams?是個(gè)列表，$#teams代表@teams最后一個(gè)元素的下標(biāo)值（這里是9），所以這個(gè)列表就是0-9這幾個(gè)數(shù)了。map遍歷上述列表，將每個(gè)列表元素臨時(shí)設(shè)置為$_，并對(duì)$_在中間的{}里進(jìn)行計(jì)算；{?$teams[$_],?$_?+?1?}，這里每次計(jì)算后返回一個(gè)2元素的列表，列表結(jié)果是某個(gè)數(shù)組值和對(duì)應(yīng)的數(shù)組下標(biāo)加1，明白了呀？

由于對(duì)每個(gè)LIST元素進(jìn)行計(jì)算時(shí)，都產(chǎn)生一個(gè)2元素的列表，所以總的map結(jié)果就可看作一個(gè)hash了。hash關(guān)鍵字就是數(shù)組元素，hash值是對(duì)應(yīng)的數(shù)組下標(biāo)加1。
http://www.chinaunix.net/jh/25/632333.html

轉(zhuǎn)載于:https://www.cnblogs.com/LCX/archive/2010/04/22/1718136.html

總結(jié)

以上是生活随笔為你收集整理的perl中的map的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。