想把文件内容读入二维数组?

w123456_cu

1. use v6;
   
2. 
   
3. #--matrix.txt---
   
4. # 1  2
   
5. # 3  4
   
6. 
   
7. #想把文件内容读入二维数组,形如
   
8. #  @m =
   
9. #    [1, 2],
   
10. #    [3, 4];
    
11. 
    
12. my @lines = $=finish.lines;
    
13. my @m;
    
14. for @lines {
    
15. @m.push: [ .words ];
    
16. }
    
17. say @m;
    
18. 
    
19. =finish
    
20. 1  2
    
21. 3  4

复制代码

结果是 [ 1 2 3 4 ];



请问大神怎么改？

ba_du_co

no problem

> slurp 'good.p6'
my @lines = $=finish.lines;
my @m;
for @lines {
    @m.push: [ .words ];
}
say @m;
=finish
1  2
3  4

> qx[perl6 good.p6]
[[1 2] [3 4]]

> qx[perl6 -v]
This is perl6 version 2015.10-46-g3c17701 built on MoarVM version 2015.10-4-g3ab4710

>

w123456_cu

@ ba_du_co 大哥你炫富了

w123456_cu

方法1、   升级到 perl6 version 2015.10
方法2、   @m.push: $[ .words ];

xie3ks

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. 
   
5. my @two_array;
   
6. 
   
7. while(<DATA>)
   
8. {
   
9.    push @two_array, [split /\s/];
   
10. }
    
11. 
    
12. for(my $i = 0; $i<=$#two_array; $i++)
    
13. {
    
14.     for(my $j = 0; $j<=$#{$two_array[$i]}; $j++)
    
15.     {
    
16.         print "\$two_array[$i][$j] = ",$two_array[$i][$j]," "x10;
    
17.     }
    
18.     print "\n";
    
19. }
    
20. 
    
21. 
    
22. __DATA__
    
23. a b c
    
24. 1 2 3 4
    
25. d e f g h
    
26. a1 a2 a2 a3 a7

复制代码