求解决！！

我收点倦

请教大家，如下有一个文本：

a 1 1 2 2 3 3
b 4 4 5 5 6 6
c 7 7 8 8 9 9
d 0 0 7 8 8 9

通过转置，想得到下面的结果：

a b c d
1 1 4 4 7 7 0 0
2 2 5 5 8 8 7 8
3 3 6 6 9 9 8 9

不知道该怎么解决呢？

yestreenstars

1. #!/usr/bin/perl
   
2. use 5.010;
   
3. 
   
4. while (<DATA>) {
   
5.         split;
   
6.         $a[0] = defined $a[0] ? $a[0] . " " . $_[0] : $_[0];
   
7.         for ($i=2;$i<@_;$i+=2) {
   
8.                 $t = $_[$i-1] . " " . $_[$i];
   
9.                 $a[$i/2] = defined $a[$i/2] ? $a[$i/2] . " " . $t : $t;
   
10.         }
    
11. }
    
12. 
    
13. END {
    
14.         for ($i=0;$i<@a;$i++) {
    
15.                 say $a[$i];
    
16.         }
    
17. }
    
18. 
    
19. __DATA__
    
20. a 1 1 2 2 3 3
    
21. b 4 4 5 5 6 6
    
22. c 7 7 8 8 9 9
    
23. d 0 0 7 8 8 9

复制代码

pitonas

{:2_172:}

1. my @data;
   
2. my $space = ' ';
   
3. while (<DATA>) {
   
4.     my @line = split;
   
5.     push @{ $data[0] }, shift @line;
   
6.     my $i = 1;
   
7.     while ( my @element = splice @line, 0, 2 ) {
   
8.         push @{ $data[ $i++ ] }, @element;
   
9.     }
   
10. }
    
11. say join $space, @$_ for @data;
    
12. 
    
13. __DATA__
    
14. a 1 1 2 2 3 3
    
15. b 4 4 5 5 6 6
    
16. c 7 7 8 8 9 9
    
17. d 0 0 7 8 8 9

复制代码

回复 1# 我收点倦


   

yestreenstars

回复 3# pitonas
这思路不错~

   

我收点倦

回复 3# pitonas
十分感谢大侠，思路超赞，不过是不是再加上一个换行符结果就perfect了！！

这只是我的愚见，不知道说的对不对。
   

pitonas

{:2_172:}
小伙伴们, 这个愚见是不对的。
say = 加上一个换行符了

回复 5# 我收点倦


   

pitonas

谢谢大神赞美
回复 4# yestreenstars


   

yestreenstars

回复 7# pitonas
在这个版块我只是一只菜菜菜鸟~

   

pitonas

大神真是超谦虚的{:2_172:}
回复 8# yestreenstars


   

我收点倦

回复 6# pitonas
好吧，大侠，原谅我不认识这个say吧！