如何在二维数据的第n行末尾添加数据？

wanggd1983

UID: 9803
帖子: 173
积分: 397
在线时间: 1 天 17 小时

1^# wanggd1983 发表于 2008-11-19 19:35

如何在二维数据的第n行末尾添加数据？

有一个二维数组：

1 2
1 2
1 2
1 2
1 2

想在第二行后面添加一个数值，比如3，怎么来做？
（也有可能在一行后面添加几个数值）

多谢：）

hitsubunnu

UID: 19600
帖子: 1
积分: 2
在线时间: 10 分钟

2^# hitsubunnu 发表于 2008-11-19 21:03

这个是将二维数组变成多维

[Copy to clipboard] [ - ]

CODE:

my $data = [
[1,2],
[1,2],
[1,2],
[1,2],
];

$data -> [1][1] =[$data -> [1][1],3];

for $i (0..3){
      for $j (0..1) {
            print $data ->[$i][$j] unless $i == 1 and $j ==1;
for (0..1){
            print $data ->[$i][$j][$_] if $i == 1 and $j ==1 ;
            }
print "\n",if $j == 1;
      }
}

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

3^# churchmice 发表于 2008-11-19 21:42

第二列 or 第二行？

wanggd1983

UID: 9803
帖子: 173
积分: 397
在线时间: 1 天 17 小时

4^# wanggd1983 发表于 2008-11-19 21:46

第二行

最后也是个二维数组呀，如果第二行加一个数字 3，则数组变成：

1 2
1 2 3
1 2
1 2
1 2

然后把这个输入到一个文件里。这其实还是一个二维的数组么？难道我理解有问题？
如果是第ｎ行，是不是可以这样来写？
push {@data[$n]}, "3";

但是有问题，没法把数据输出了，汗~

hitsubunnu

UID: 19600
帖子: 1
积分: 2
在线时间: 10 分钟

5^# hitsubunnu 发表于 2008-11-19 22:10

QUOTE:

原帖由 wanggd1983 于 2008-11-19 21:46 发表
第二行

最后也是个二维数组呀，如果第二行加一个数字 3，则数组变成：

1 2
1 2 3
1 2
1 2
1 2

然后把这个输入到一个文件里。这其实还是一个二维的数组么？难道我理解有问题？
...

第n行 m列后面追加 3 的写法

[Copy to clipboard] [ - ]

CODE:

push @{$ref->[n-1]},3;

wxlfh

UID: 22014
帖子: 1
积分: 2
在线时间: 10 分钟

6^# wxlfh 发表于 2008-11-20 14:47

这样就可以了，假设@array是个二维数组

push @{$array[n-1]},$data;