请教一个数组转化问题！

求浩871227

哇，有希望了，非常感谢！我试着用这个程式再扩展一下 回复 10# xiumu2280


   

pitonas

难道是这个? {:2_170:}

1. while (<DATA>) {
   
2.     my @a = map split, $_, ~~<DATA>, ~~<DATA>;
   
3.     say "@a[ 0, 2 ]";
   
4.     say "@a[ 4, 1 ]";
   
5.     say "@a[ 3, 5 ]";
   
6. }
   
7. 
   
8. __DATA__
   
9. 1 4
   
10. 2 5
    
11. 3 6
    
12. 7 10
    
13. 8 11
    
14. 9 12
    
15. 13 16
    
16. 14 17
    
17. 15 18
    
18. 19 22
    
19. 20 23
    
20. 21 24
    
21. 25 28
    
22. 26 29
    
23. 27 30

复制代码

1. 1 2
   
2. 3 4
   
3. 5 6
   
4. 7 8
   
5. 9 10
   
6. 11 12
   
7. 13 14
   
8. 15 16
   
9. 17 18
   
10. 19 20
    
11. 21 22
    
12. 23 24
    
13. 25 26
    
14. 27 28
    
15. 29 30
    

复制代码

q1208c

完全没看明白楼主的数据有啥规律.

如果只是简单的两列数据换个顺序, 应该不是太难的.

求浩871227

谢谢大神！我照着这个思路再扩展一下！回复 12# pitonas


   

求浩871227

谢谢回复！刚接触perl不是很懂，编程大学学过皮毛，忘的差不多了，对我来讲还是蛮难的。楼上给了我很好的思路，希望能成功！回复 13# q1208c