perl数组问题求教

fly_in_thesky

不知perl中类似C语言的那种二位数组怎么使用？
例如：
1 1 1 1 1 1 1 0 a a a
1 1 1 1 1 1 1 0 a a a
1 1 1 1 1
想输出某一列的某一行的那个数应该怎么像C那样使用，直接的那种引用数组好像不可以啊！
求教！！

ciedecem

fly_in_thesky 发表于 2012-06-28 18:54
不知perl中类似C语言的那种二位数组怎么使用？
例如：
1 1 1 1 1 1 1 0 a a a

【 Perl的二维数组跟C中二维数组的概念是一样，即，它没有二维或多维数组，有的只是数组的数组。】
但Perl的数组比C的数组灵活多了，特别是多维数组做函数参数方面。

有了这个定海神针，我们就知道如何保存和输出一个二维数组了。

下面是我写code，请指教。
1） 数据文件
> cat twoDim.dat
1 1 1 1 1 1 1 0 a a a
1 1 1 1 1 1 1 0 a a a
1 1 1 1 1

2） code
> cat twoDim
#!/usr/bin/perl

# global array variable: $gArrRef;
# global counter: $count as the first index.

$count =0;
my @tmp;
while( <> )
{
        chmop;
        s/^\s*//;
        s/\s*$//;
       @tmp = $_ =~ m/\w+/g;
        $gArrRef->[$count] = [@tmp];
        ++$count;
}
use Data:: Dumper;
print Dumper $gArrRef;
通过上面的print就知道该数组的结构了。

请采纳

cdtits

1. #!/usr/bin/env perl
   
2. 
   
3. @datas;
   
4. while (<DATA>) {
   
5.     @tmps = split;
   
6.     push @datas, [@tmps];
   
7. }
   
8. 
   
9. print $datas[0][10], "\n";
   
10. print $datas[1][9],  "\n";
    
11. 
    
12. __DATA__
    
13. 1 1 1 1 1 1 1 0 a a a
    
14. 1 1 1 1 1 1 1 0 a a a
    
15. 1 1 1 1 1

复制代码

yinyuemi

回复 1# fly_in_thesky

1. my @arr;
   
2. map{push @arr, [split]} <DATA>;
   
3. print $arr[0]->[0];
   
4. __DATA__
   
5. 1 1 1 1 1 1 1 0 a a a
   
6. 1 1 1 1 1 1 1 0 a a a
   
7. 1 1 1 1 1
   

复制代码

fly_in_thesky

回复 2# ciedecem


   多谢!

fly_in_thesky

回复 3# cdtits


    多谢！
    还要请教有关这部分知识我可以在哪里学习呢？intermediate perl？

Crisewng

1. #!/usr/bin/env perl
   
2. use warning;
   
3. use strict;
   
4. my @datas;
   
5. while (<DATA>) {
   
6.     my @tmps = split; #把元素分割成一个数组
   
7.     push @datas, [@tmps]; 象datas中增加一个匿名数组引用
   
8. }
   
9. 
   
10. print $datas[0][10], "\n";
    
11. print $datas[1][9],  "\n";
    
12. 
    
13. __DATA__
    
14. 1 1 1 1 1 1 1 0 a a a
    
15. 1 1 1 1 1 1 1 0 a a a
    
16. 1 1 1 1 1

复制代码

等效于下边这行

1. 
   
2. use warning;
   
3. use strict;
   
4. my @datas;
   
5. while (<DATA>) {
   
6.         push @datas, [split];
   
7. }
   
8. 
   
9. print $datas[0][10], "\n";
   
10. print $datas[1][9],  "\n";
    
11. 
    
12. __DATA__
    
13. 1 1 1 1 1 1 1 0 a a a
    
14. 1 1 1 1 1 1 1 0 a a a
    
15. 1 1 1 1 1
    

复制代码

回复 6# fly_in_thesky


   

flw

C 里面其实也没有二维数组。这一点和 Perl 是一样的。

Pascal 倒是有二维/多维数组。

dgtnk

回复 6# fly_in_thesky


    http://perldoc.perl.org/perldsc.html