perl求助，求一个矩阵的转换。

xiayuu119

我是数据是：行列都非常多
n A B C D E F G
a 1 2 3 4 5 6 7
b 2 3 4 5 6 7 8
c 2 3 5 6 1 5 1

转换成：
A a 1
A b 2
A c 2
B a 2
B b 3
B c 3
.
.
.
.

将这个矩阵转换为 3列。

新手一个，请大家帮忙啊！

stanley_tam

数据很大，那就每次读一行？{:3_184:}

1. #!perl
   
2. use strict;
   
3. use FileHandle;
   
4. 
   
5. my $file   = 'a.txt';
   
6. my $fh     = FileHandle->new($file, 'r');
   
7. my @header = split /\s+/, $fh->getline;
   
8. 
   
9. while (my $line = $fh->getline) {
   
10.     my @parts   = split /\s+/, $line;
    
11.     for my $i ( 1 .. $#parts ) {
    
12.         print "$header[$i]$parts[0]$parts[$i]\n";
    
13.     }
    
14. }
    
15. 
    
16. __END__

复制代码

xiayuu119

stanley_tam 发表于 2014-09-04 19:26
数据很大，那就每次读一行？

很好用！ 感觉很巧妙！~~~大神~~非常感谢！！

xiayuu119

回复 2# stanley_tam


    再请教一下，如果我反着进行应该如何做呢？就是把“三列 转换成 矩阵”？

stanley_tam

貌似回答已经是很久以前的事情了。
下面这个你看行不行咯

1. #!perl
   
2. use strict;
   
3. use FileHandle;
   
4. 
   
5. my $file   = 'a.txt';
   
6. my $fh     = FileHandle->new($file, 'r');
   
7. my $data   = +{};
   
8. my @row    = ();
   
9. my @col    = ();
   
10. 
    
11. sub _uniq {
    
12.     my %seen = ();
    
13.     return grep { ! $seen{$_} ++ } @_
    
14. };
    
15. 
    
16. while (my $line = $fh->getline) {
    
17.     my @parts   = split /\s+/, $line;
    
18.     push @row, $parts[0];
    
19.     push @col, $parts[1];
    
20.     $data->{$parts[0]}->{$parts[1]} = $parts[2];
    
21. }
    
22. 
    
23. @row = _uniq(@row);
    
24. @col = _uniq(@col);
    
25. 
    
26. print join ' ', 'n', @row, $/;
    
27. for my $c (@col){
    
28.     my $line = $c;
    
29.     for my $r (@row){
    
30.         $line .= " $data->{$r}->{$c}"
    
31.     }
    
32.     print "$line$/";
    
33. }
    
34. 
    
35. __END__

复制代码

rubyish

biru:

1. #!/usr/bin/perl
   
2. 
   
3. my ( undef, @ABC ) = split /\s+/, <DATA>;
   
4. my ( @abc, @data );
   
5. 
   
6. while (<DATA>) {
   
7.     my ( $abc, @num, $i ) = split;
   
8.     push @abc, $abc;
   
9.     push @{ $data[ $i++ ] }, $_ for @num;
   
10. }
    
11. 
    
12. for my $e (@data) {
    
13.     my ( $ABC, $i ) = shift @ABC;
    
14.     print map join( "\t", $ABC, $abc[ $i++ ], $_ ) . $/, @$e;
    
15. }
    
16. 
    
17. 
    
18. __DATA__
    
19. n A B C D E F G
    
20. a 1 2 3 4 5 6 7
    
21. b 2 3 4 5 6 7 8
    
22. c 2 3 5 6 1 5 1
    

复制代码

and biru:

1. #!/usr/bin/perl
   
2. 
   
3. use 5.018;
   
4. 
   
5. my ( @ABC, @abc, @data, $i );
   
6. while (<DATA>) {
   
7.     my ( $ABC, $abc, $n ) = split;
   
8.     if ( !@ABC or $ABC ne $ABC[-1] ) {
   
9.         push @ABC, $ABC;
   
10.         $i = 0;
    
11.     }
    
12.     push @{ $data[ $i++ ] }, $n;
    
13.     push @abc, $abc if @abc < @data;
    
14. }
    
15. 
    
16. say join "\t", 'n', @ABC; # <== here 'n'
    
17. say join "\t", shift @abc, @$_ for @data;
    
18. 
    
19. __DATA__
    
20. A       a       1
    
21. A       b       2
    
22. A       c       2
    
23. B       a       2
    
24. B       b       3
    
25. B       c       3
    
26. C       a       3
    
27. C       b       4
    
28. C       c       5
    
29. D       a       4
    
30. D       b       5
    
31. D       c       6
    
32. E       a       5
    
33. E       b       6
    
34. E       c       1
    
35. F       a       6
    
36. F       b       7
    
37. F       c       5
    
38. G       a       7
    
39. G       b       8
    
40. G       c       1
    

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aData = map [split], <DATA>;
   
6. shift @{$aData[0]};
   
7. while (my $th = shift @{$aData[0]}){
   
8.     print join ("\t", $th, $aData[$_]->[0], splice (@{$aData[$_]}, 1, 1)), "\n" for 1 .. $#aData;
   
9. }
   
10. 
    
11. __DATA__
    
12. n A B C D E F G
    
13. a 1 2 3 4 5 6 7
    
14. b 2 3 4 5 6 7 8
    
15. c 2 3 5 6 1 5 1

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aData = map [split], <DATA>;
   
6. shift @{$aData[0]};
   
7. while (my $th = shift @{$aData[0]}){
   
8.     print join ("\t", $th, $aData[$_]->[0], splice (@{$aData[$_]}, 1, 1)), "\n" for 1 .. $#aData;
   
9. }
   
10. 
    
11. __DATA__
    
12. n A B C D E F G
    
13. a 1 2 3 4 5 6 7
    
14. b 2 3 4 5 6 7 8
    
15. c 2 3 5 6 1 5 1

复制代码