perl中二维数组可否使用unshift操作

显示全部楼层 · 2008-10-8 16:56:15

我有一个二维数组，想在最前面插入一个数组，如下：
原来的二维数组：
1,2,3,4
5,6,7,8
9,8,7,6
插入：
2,4,6,8
想得到的结果为：
2,4,6,8
1,2,3,4
5,6,7,8
9,8,7,6
可否用unshift操作呢？

千问 · 2008-10-8 16:56:15

my @data= (
[qw/1 2 3 4/],
[qw/5 6 7 8/],
[qw/9 8 7 6/]
);print"$data[0][0]$data[0][1] $data[0][2]", "\n";unshift @data, [4,3,2,1];print"$data[0][0]$data[0][1] $data[0][2]", "\n";unshift@{$data[0] } , 8;unshift@{$data[0]} , 5;print"$data[0][0]...