perl 矩陣

kfcdog0419

請(qǐng)問各位大大
假如我文件裡有一個(gè)舉例小小的3X3:

1 11 22
2 22 33
0 15 59

我想把他當(dāng)作矩陣取出位置0,0=1 或 2,2=22 或 3,3=59 或1,2.....等等
要如何寫呢?

先謝謝各位

清泉一邊

應(yīng)該是這個(gè)意思吧

1. #!/usr/bin/perl  -w
   
2. use strict;
   
3. my $i = 0;
   
4. while (<DATA>){
   
5. chomp;
   
6. my @col = split/\s+/,$_;
   
7. for (0..$#col){
   
8. print "$i".","."$_=$col[$_]";
   
9. print "\n";
   
10. }
    
11. $i += 1;
    
12. }
    
13. 
    
14. __DATA__
    
15. 1 11 22
    
16. 2 22 33
    
17. 0 15 59

復(fù)制代碼

回復(fù) 1# kfcdog0419


   

ghoull

回復(fù) 1# kfcdog0419

1. #!/usr/bin/perl
   
2. 
   
3. use 5.010;
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. my $i = 0;
   
8. my @a;
   
9. 
   
10. while (<DATA>){
    
11.         chomp;
    
12.         @{$a[$i]}= split/\s+/,$_;
    
13.         $i ++;
    
14. }
    
15. 
    
16. foreach my $y(0..$#a) {
    
17.         foreach my $x (0..$#{$a[$y]}){
    
18.                 say "$y,$x -> $a[$y][$x]";
    
19.         }
    
20. }
    
21. 
    
22. __DATA__
    
23. 1 11 22
    
24. 2 22 33
    
25. 0 15 59

復(fù)制代碼

rubyish

1. my @matrix = map [split], <DATA>;
   
2. say $matrix[1][1];
   
3. 
   
4. __DATA__
   
5. 1 11 22
   
6. 2 22 33
   
7. 0 15 59

復(fù)制代碼