求助

zlzty

我有这样的一个文本
1 2 3 4 1 2 3 4 3 2 1 1
1 2 3 3 3 4 5 6 7 8 9 0
2 1 2 3 4 5 6 7 8 9 0 9
我怎么让可以让他3行数据竖着输出
比如这样
1 1 2
2 3 1
3 3 2
4 3 3
1 3 4
。。。
。。。
。。。
。。。
。。。

cu_little_bird

三行存入三个数组， 然后挨着打印

cdtits

1. while (<DATA>) {
   
2.     push @ds, [split];
   
3. }
   
4. 
   
5. for $x (0..$#{$ds[0]}) {
   
6.     for $y (@ds) {
   
7.         print "$y->[$x] ";
   
8.     }
   
9.     print "\n";
   
10. }
    
11. 
    
12. __DATA__
    
13. 1 2 3 4 1 2 3 4 3 2 1 1
    
14. 1 2 3 3 3 4 5 6 7 8 9 0
    
15. 2 1 2 3 4 5 6 7 8 9 0 9

复制代码

zlzty

非常感谢。回复 3# cdtits