如何處理文本？？？

Tracy_Panda

謝謝啦，頭像真是太萌了。。。。回復 8# RE_HASH


   

Tracy_Panda

大家如果有其他辦法，還請多多指教

rubyish

perl abc.pl file

1. #!/usr/bin/perl
   
2. use 5.022;
   
3. my ( $K, @that, $i, %has, @it, $p ) = ( -1, '' );
   
4. 
   
5. while (<>) {
   
6.     my ( $k, $d, $v ) = split;
   
7.     $has{$k} //= $i++;
   
8.     ( $p, $K ) = ( 0, $k ) if $K != $k;
   
9.     $it[ $has{$k} ][$p]    ||= $k;
   
10.     $it[ $has{$k} ][ $p++ ] .= "\t$v";
    
11.     push @that, $d if $d ne $that[-1];
    
12. }
    
13. 
    
14. say join "\t", @that;
    
15. say for map @$_, @it;
    

復制代碼

RE_HASH

如果確定每組行數相同：

while (<>)
{
  $i++;
  my @F = split;
  if ($F[1] ne $O->[0]->[-1]) {  $j++; $i = 1; $O->[0]->[$j] = $F[1]; }  #Header  
  @{$O->[$i]}[0, $j] = @F[0,2];  #Key, Data Rows
}
$,="\t"; map { print @$_, "\n" } @$O;

sunzhiguolu

回復 6# jason680
大神, 您的代碼有個地方我看不懂, 還請您指點:

while(<>){
  chomp;
  my($sKey, $sDsy, $sVal) = split;
  push(@aDsy, $sDsy) if(!$hDsy{$sDsy}++);
  push(@aKey, $sKey) if(!$hKey{$sKey}++);
  my $sCnt = ++$hCnt{$sKey}{$sDsy};
  $hVal{$sKey, $sDsy, $sCnt} = $sVal;
}

, 在這里表示啥意思啊, 以前從來沒見過您這樣用. 還請您指點...
   

rubyish

回復 15# sunzhiguolu

1. $hVal{$sKey, $sDsy, $sCnt} = $sVal;

復制代碼

eq

1. $hVal{join $;, $sKey, $sDsy, $sCnt} = $sVal;

復制代碼

kankan http://perldoc.perl.org/perlvar.html
$SUBSCRIPT_SEPARATOR

rubyish

回復 14# RE_HASH

zhege youyisi, XX le
3Q ~     

rubyish

v2:
perl abc.pl file

1. #!/usr/bin/perl
   
2. use 5.010;
   
3. my ( @d, @b ) = '';
   
4. 
   
5. while (<>) {
   
6.     my ( $p, $d, $q ) = split;
   
7.     $b =! push @d, $d if $d ne $d[-1];
   
8.     $b[ $b   ] ||= $p;
   
9.     $b[ $b++ ]  .= "\t$q";
   
10. }
    
11. 
    
12. say join "\t", @d;
    
13. say for @b;

復制代碼

sunzhiguolu

回復 16# rubyish
謝謝大神指點...

   

sunzhiguolu

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my ($sCN, $sLast_pos, $sRN, @aData, %hPos, @aPos) = (-1, "");
   
7. 
   
8. while (<>){
   
9.     my ($sSN, $sPos, $sVal) = split;
   
10.     $sVal = $sVal // '';
    
11.     !$hPos{$sPos}++ ? do {$sRN = 0; push (@aPos, $sPos); $sCN++} : $sRN++;
    
12.     $sLast_pos = $sPos if ($sLast_pos eq "");
    
13.     $sVal = "$sSN $sVal" if ($sLast_pos eq $sPos);
    
14.     $aData[$sRN][$sCN] = $sVal;
    
15. }
    
16. 
    
17. print join ("\t", "", @aPos), "\n";
    
18. print "@$_\n" for @aData;
    

復制代碼

DYS389I DYS389II        DYS390  DYS456
2698 12 27 25 15
2698 12 27 25 15
2720 12 28 24 14
2720 12   14
2736 12 29 22 15
2736 12