小编per*_*ist的帖子

是否有一个默认函数perl5大约这样做:

map {print $array[$_]} qw/1 5 7/; # i don't care about 2, 3, 4, 6 and whatever next indexes

一个功能而不是三个？