怎么把一维数组变成二维

macgradywk

小弟新手请教一个问题：
一维数组  1234,5678,9012
变为 二维数组 1 2 3 4
                    5 6 7 8
                    9 0 1 2
如何实现

xiumu2280

1. my @data = (1234,5678,9012);
   
2. my @name = map {[split //]}@data;
   
3. print "@$_\n" for @name;

复制代码

macgradywk

回复 2# xiumu2280


my @wlbl;
for($i = 0;$i<=527;$i++) {
for($j = 0;$j<=285;$j++) {
$wlbl[$i][$j] = $sequence[286*$i+$j];
print "$wlbl[$i][$j]\n";

我这里先把原来的一位数组各个元素连起来，在这么变，为什么结果是空的呢，
你的代码对于我来说看不懂，有没有易懂点的？

xiumu2280

1. my @data = (1234,5678,9012);
   
2. #my @name = map {[split //] }@data;
   
3. 
   
4. 
   
5. my @two_data;
   
6. foreach my $line (@data) {
   
7.         my @new_data = split //,$line;
   
8.         push @two_data,@new_data;
   
9. }

复制代码

主要是用split把之前的数字分开

pitonas

哈哈，这个 .. 小伙伴们, 这个简约低调有内涵。
{:2_179:} 看得我都激动了...


回复 2# xiumu2280


   

afukada

回复 3# macgradywk


    @sequence這個array原本有assign東西嗎?