用于打印阵列的Perl功能

Question

是否有一个默认函数perl5大约可以做到这一点：

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

一个功能而不是三个？

Answer 1

怎么样，

print @array[qw/1 5 7/] ;

在perl中，有十种方法可以做任何事情。

Answer 2

或者：

print @array[1,5,7];

一个功能，如您所需。

这称为数组切片，您可以从perldata（运行perldoc perldata并搜索'切片'）了解有关它的更多信息。