如何实现这样的自动换列转换?

Osirix

譬如 这样的格式,原数据是二维的，每列结束都有个"end"标志:
如何从

1. 
   
2. 11        a1
   
3. 21        a1
   
4. 31        a1
   
5. 41        a1
   
6. 51        a1
   
7. 0        end
   
8. 12        b2
   
9. 22        b2
   
10. 32        b2
    
11. 42        b2
    
12. 52        b2
    
13. 0        end
    
14. 12        c3
    
15. 22        c3
    
16. 32        c3
    
17. 42        c3
    
18. 52        c3
    
19. 0        end
    

复制代码

转换成这样子：

1. 
   
2. 11        a1        12        b2        12        c3
   
3. 21        a1        22        b2        22        c3
   
4. 31        a1        32        b2        32        c3
   
5. 41        a1        42        b2        42        c3
   
6. 51        a1        52        b2        52        c3
   
7. 0        end         0        end         0        end
   

复制代码

aerofox

可以用csplit分割，再用paste合并。
如果文件不是特别大，也可以用awk

huan

假设原文件存于foo中

2. [0 No.2034 huan@huan ~/tmp]$ cat bar.pl
3. #! /usr/bin/perl -w
5. use strict;
7. my @aoa = ();
8. my $row = 0;
10. open (FH, "./foo") or die $!;
11. while (<FH>) {
12.     push @{$aoa[$row]}, split;
13.     $row++;
14.     /end/ and $row = 0;
15. }
17. for $row (@aoa) {
18.     print "@$row\n";
19. }
21. [0 No.2035 huan@huan ~/tmp]$ perl bar.pl
22. 11 a1 12 b2 12 c3
23. 21 a1 22 b2 22 c3
24. 31 a1 32 b2 32 c3
25. 41 a1 42 b2 42 c3
26. 51 a1 52 b2 52 c3
27. 0 end 0 end 0 end
29. [0 No.2036 huan@huan ~/tmp]$

复制代码