如何在perl中连接两个数组条目

Question

我有一个数组，我想加入它的第5和第6个条目！

喜欢：@array（1,2,3,4,5,6,7,8,9）应该是@array（1,2,3,4,56,7,8,9）

我怎么能实现这一目标？我刚刚在互联网上找到了如何合并两个数组，但不是两个数组......

提前致谢。 最好的问候，约翰。

Answer 1

最简单的方法是使用splice和array slice。

use warnings;
use strict;

my @array = (1,2,3,4,5,6,7,8,9);

splice @array, 4, 2, join('', @array[4,5]);

print "@array";

Answer 2

my @a = (1,2,3,4,5,6,7,8,9);
my @b = (@a[0..3], join('',@a[4..5]), @a[6..8]);

print "@b\n";   # <---- prints: 1 2 3 4 56 7 8 9