有三列数组，把2，3列变成行，同时保持第一列唯一

fzhcl

本人有下面的一组数据，根据第一列的值，将第二，三列变成行，先谢谢各位的帮助。

PL -0.00 5.50
PL -0.25 3.50
PL -0.50 0.00
PL -0.75 4.50
-0.25 -0.00 1.00
-0.25 -0.25 4.50
-0.25 -0.50 1.00
-0.75 -0.75 1.00
-0.75 -1.00 0.00
-1.00 -0.25 3.50
-1.00 -0.50 0.00
-1.00 -1.25 3.40
-1.00 -1.75 4.00

结果如下：

PL,-0.00,-0.25,-0.50,-0.75
PL,5.50,3.50,0.00,4.50
-0.25,-0.00,-0.25,-0.50
-0.25,1.00,4.50,1.00
-0.75,-0.75,-1.00
-0.75,1.00,0.00
-1.00,-0.25,-0.50,-1.25 ,-1.75
-1.00,3.50,0.00,3.40,4.00

b114213903

献个拙！

1. #!/usr/bin/perl
   
2. use strict;
   
3. 
   
4. my ($data,@ids)=({},());
   
5. while (<DATA>){
   
6.         chomp;
   
7.         my ($id,$a,$b)=split;
   
8.         if ($data->{$id}){
   
9.                 $data->{$id}->[0].=",$a";
   
10.                 $data->{$id}->[1].=",$b";
    
11.         }else{
    
12.                 push @ids,$id;
    
13.                 $data->{$id}=[$a,$b];
    
14.         }
    
15. }
    
16. for(@ids){
    
17.         print "$_,$data->{$_}->[0]\n$_,$data->{$_}->[1]\n"
    
18. }
    
19. 
    
20. __DATA__
    
21. PL -0.00 5.50
    
22. PL -0.25 3.50
    
23. PL -0.50 0.00
    
24. PL -0.75 4.50
    
25. -0.25 -0.00 1.00
    
26. -0.25 -0.25 4.50
    
27. -0.25 -0.50 1.00
    
28. -0.75 -0.75 1.00
    
29. -0.75 -1.00 0.00
    
30. -1.00 -0.25 3.50
    
31. -1.00 -0.50 0.00
    
32. -1.00 -1.25 3.40
    
33. -1.00 -1.75 4.00

复制代码

rubyish

shishi

1. my @A;
   
2. my $C = '\(^oo^)/';
   
3. 
   
4. while (<DATA>) {
   
5.     my ( $c, @cs, $i ) = split;
   
6.     if ( $c ne $C ) {
   
7.         push @A, [ ($c) x @cs ];
   
8.         $C = $c;
   
9.     }
   
10.     $A[-1][ $i++ ] .= ", $_" for @cs;
    
11. }
    
12. 
    
13. say for map @$_, @A;
    
14. 
    
15. __DATA__
    
16. PL -0.00 5.50
    
17. PL -0.25 3.50
    
18. PL -0.50 0.00
    
19. PL -0.75 4.50
    
20. -0.25 -0.00 1.00
    
21. -0.25 -0.25 4.50
    
22. -0.25 -0.50 1.00
    
23. -0.75 -0.75 1.00
    
24. -0.75 -1.00 0.00
    
25. -1.00 -0.25 3.50
    
26. -1.00 -0.50 0.00
    
27. -1.00 -1.25 3.40
    
28. -1.00 -1.75 4.00

复制代码

fzhcl

回复 2# b114213903


    谢谢b114213903， 结果正是我要的。

fzhcl

回复 3# rubyish


    谢谢rubyish，我的perl是v5.8.8， 没有say, 单位的机子，没有root权限去升级及下载，只能用现有的。

用

@n= map "@$_", @A;
print "@n\n";

代替say for map @$_, @A; 得不到我要的结果。 继续试验中。

ba_du_co

say for ...
大约是这样子的一回事
print "$_\n" for ...

fzhcl

回复 6# ba_du_co

是这样吗：  print "$_\n" for map @$_, @A;

结果多了回车：

PL, -0.00
, -0.25
, -0.50
, -0.75

PL, 5.50
, 3.50
, 0.00
, 4.50

...
  
-1.50, -0.00
, -0.25

-1.50, 1.00
, 1.50

reyleon

1. awk '{ if(!x[$1]++)m[++n]=$1;for(i=2;i<=NF;i++) a[$1][i]=length(a[$1][i])?a[$1][i]","$i:$i }END{for(i=1;i<=n;i++)for(j=2;j<=NF;j++)print m[i]","a[m[i]][j]}' inputfile

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aData;
   
6. while (<DATA>){
   
7.     my @aList = split;
   
8.     if (!@aData or $aData[-1][0] ne $aList[0]){
   
9.         push (@aData, [$aList[0], [$aList[1]], [$aList[-1]]]);
   
10.         next;
    
11.     }
    
12.     push (@{$aData[-1][$_]}, $aList[$_]) for 1 .. $#aList;
    
13. }
    
14. 
    
15. print join ("\n", join (",", $_->[0], @{$_->[1]}), join (",", $_->[0], @{$_->[-1]})), "\n" for @aData;
    
16. 
    
17. __DATA__
    
18. PL -0.00 5.50
    
19. PL -0.25 3.50
    
20. PL -0.50 0.00
    
21. PL -0.75 4.50
    
22. -0.25 -0.00 1.00
    
23. -0.25 -0.25 4.50
    
24. -0.25 -0.50 1.00
    
25. -0.75 -0.75 1.00
    
26. -0.75 -1.00 0.00
    
27. -1.00 -0.25 3.50
    
28. -1.00 -0.50 0.00
    
29. -1.00 -1.25 3.40
    
30. -1.00 -1.75 4.00

复制代码

华小飞_Perl

高版本的直接装到自己家目录中试试呗~