获取Perl数组的最后N个元素的最佳方法是什么?
如果数组小于N,我不希望返回值中有一堆undefs
。
发布于 2009-03-04 18:06:40
@last_n = @source[-$n..-1];
如果您不需要undef
s,则:
@last_n = ($n >= @source) ? @source : @source[-$n..-1];
发布于 2009-03-04 18:01:12
我想你想要的东西叫做slice。
发布于 2017-03-21 22:57:53
简单,不需要数学运算:
@a = reverse @a;
@a = splice(@a, 0, $elements_to_keep);
@a = reverse @a;
https://stackoverflow.com/questions/611723
复制相似问题