如何将行数隔一行合并到一起

chenjiali1

我有个文件，行数是4的倍数，我现在想以每4行为一个单元，其中的1,3行合并为一行，2,4行合并为一行，即
1
2
3
4
输出后我为
13
24
直接合并一起，不需要换制表符啥的。

每四行都执行这样的操作，请问如何实现啊！

请问如何实现，谢谢大家！

kernel69

这样？

1. cat 1
   
2. 1
   
3. 2
   
4. 3
   
5. 4
   
6. perl -lne '$.%2==0 ? push @n1,$_ : push @n2,$_;END{print @n2,"\n",@n1}' 1
   
7. 13
   
8. 24
   

复制代码

回复 1# chenjiali1


   

stanley_tam

这样有歧义哦，能举个8行的例子吗？

yakczh_cu

回复 3# stanley_tam

1. 
   
2. use 5.01;
   
3. use strict;
   
4. my $i=0;
   
5. my @line=([],[]);
   
6. while(<DATA>){
   
7.    chop;
   
8.        
   
9.         if ($i %  2 eq  0 ){
   
10.                   push $line[0],$_;
    
11.         }else {
    
12.                   push $line[1],$_;
    
13.         }
    
14.          
    
15.         if  (++$i gt 3) {
    
16.           foreach my $item (@line){
    
17.                       print @$item,"\n";
    
18.           }
    
19.                   
    
20.           $i=0;
    
21.           @line=([],[]);
    
22.         }
    
23. 
    
24. }
    
25. 
    
26. 
    
27. 
    
28. 
    
29. __DATA__
    
30. 1
    
31. 2
    
32. 3
    
33. 4
    
34. 5
    
35. 6
    
36. 7
    
37. 8
    
38. 
    

复制代码

pitonas

这样？

1. while (<DATA>) {
   
2.     my ( $l2, $l3, $l4 ) =
   
3.       ( scalar <DATA>, scalar <DATA>, scalar <DATA> );
   
4.     chomp( $_, $l2 );
   
5.     print $_, $l3, $l2, $l4;
   
6. }
   
7. 
   
8. __DATA__
   
9. 1
   
10. 2
    
11. 3
    
12. 4
    
13. 5
    
14. 6
    
15. 7
    
16. 8
    

复制代码