如何定义、读、写、打印三维数组呢？

buxoman

对照着Programming Perl电子书，整了半天也没整出来，郁闷……

请高人指点
=======================================

很抱歉，说的太模糊了。下面我仔细描述一下我的想法。
-------------------------------------------------------------

我需要一个三维数组。第1维是固定64个元素，第2维是固定12个元素，第3维是固定2个元素。
形式如下：
@array[64][12][2].

我希望将第3维的2个元素初始化为(1000, 0)，作为一个[min,max]范围来使用。

在程序运行过程中，我会去更新第3维的两个元素，用一个新的数值去更新，目的是捕捉更小的min, 更大的max。

如果新的min值比已有的小，就更新；
如果新的max值比已有的大，就更新。

程序运行结束后，可以将这个三维数组打印出来进行观察。

==================================

1. 
   
2. my @gpr = ();
   
3. for (my $i = 0; $i < 64; ++$i) {
   
4.     my @dim2array = ();
   
5.     for (my $j = 0; $j < 12; ++$j) {
   
6.         my @dim3array = (1000, 0);
   
7.         push @dim2array, \@dim3array;
   
8.     }
   
9.     push @gpr, \@dim2array;
   
10. }
    
11. 
    
12. for (my $i = 0; $i < 64; ++$i) {
    
13.         $gpr[$i][5][0] = 0;
    
14.         $gpr[$i][5][1] = 1000;
    
15. }
    
16. 
    
17. for (my $i = 0; $i < 64; ++$i) {
    
18.     print "r$i :\n";
    
19.     for (my $j = 0; $j < 12; ++$j) {
    
20.         print "    \( $gpr[$i][$j][0]  $gpr[$i][$j][1] \) \n";
    
21.     }
    
22. }
    
23. 
    
24. exit;
    

复制代码

fly_in_thesky

回复 1# buxoman


   不是很理解什么意思。
  数组直接定义就行，个人认为是比C简洁的地方。打印就直接$A[][][]就行啊

墨迹哥

不是很明白你的中心思想是想表达什么？

你是想对数据进行操作呢，还是想实现某个功能呢？

如果是实现某个功能，就把自己写的代码贴出来才能让别人帮你改啊。。

rubyish

这问题我纠结了一下午啊。