perl - 将中间元素插入数组

Question

在数组的每个现有元素之间插入元素的最佳方式是什么。到目前为止我最好的如下:

my @array = ( 1 , 'foo', { }, [ ] );
my @new_array;
push @new_array, $_, ', ' for @array;
pop @new_array;

实际上，@array 包含 HTML::Element 对象和传递给 HTML::Element 的 splice_content 方法的字符串的混合，目的是逗号分隔部分一个元素的内容。

Answer 1

怎么样:

my @array = ( 1 , 'foo', { }, [ ] );
(undef, my @new_array) = map {; ', ' => $_ } @array;

这利用了一个鲜为人知的事实，即您可以在列表赋值的左侧使用 undef 来指示您不关心该元素。 (map {; 中的分号是为了让解析器理解这是一个 block 而不是 hashref。)