Chinaunix

标题: 求助 [打印本页]

---

作者: zlzty    时间: 2012-08-20 11:32
标题: 求助
我有这样的一个文本
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    时间: 2012-08-20 11:59
三行存入三个数组， 然后挨着打印

---

作者: cdtits    时间: 2012-08-20 12:13

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    时间: 2012-08-20 13:05
非常感谢。回复 3# cdtits


   

---

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)

Powered by Discuz! X3.2