如何處理文本？？？

Tracy_Panda

原文本是這樣的：
2698         DYS389I        12
2698         DYS389I        12
2720         DYS389I        12
2720         DYS389I        12
2736         DYS389I        12
2736         DYS389I        12
2698         DYS389II        27
2698         DYS389II        27
2720         DYS389II        28
2720         DYS389II         
2736         DYS389II        29
2736         DYS389II         
2698         DYS390        25
2698         DYS390        25
2720         DYS390        24
2720         DYS390         
2736         DYS390        22
2736         DYS390         
2698         DYS456        15
2698         DYS456        15
2720         DYS456        14
2720         DYS456        14
2736         DYS456        15
2736         DYS456         

想變成下面的形式：
        DYS390        DYS389I        DYS456        DYS389II
2698        25        12        15        27
2698        25        12        15        27
2720        24        12        14        28
2720                12        14       
2736        22        12        15        29
2736                12               

--------------分割線----------------

原文中有三列數(shù)據(jù)，分別是序列號(hào)，突變的位點(diǎn)以及對(duì)應(yīng)的數(shù)值，想得到的形式大家也看到了，希望各位牛人幫忙看一下，小白在此先謝過(guò)各位了�。。�

104359176

這就是 excel 中的分類匯總吧，其實(shí)用數(shù)據(jù)庫(kù)類軟件處理，最合適不過(guò)了。

Tracy_Panda

因爲(wèi)現(xiàn)在剛剛開始學(xué)習(xí)perl，而且以後還會(huì)用到perl去處理文本，所以想用它解決這個(gè)問(wèn)題。還是謝謝你的答覆 以後我會(huì)考慮的！��！回復(fù) 2# 104359176


   

sunzhiguolu

回復(fù) 1# Tracy_Panda
問(wèn)下, 各突變的行數(shù)是相等的嗎? 比如示例中的這幾個(gè) => {DYS389I,DYS389II,DYS390,DYS456}

   

Tracy_Panda

對(duì)的，原文中一共測(cè)了三個(gè)樣本，但是每個(gè)樣本測(cè)了兩遍，所以每個(gè)突變點(diǎn)都有六行數(shù)據(jù)。因爲(wèi)是直接複製過(guò)來(lái)的文件，格式可能不太清楚，抱歉�。。�回復(fù) 4# sunzhiguolu


   

jason680

回復(fù) 1# Tracy_Panda

$ perl cb.pl FILE
        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                        

$ cat cb.pl
use strict;
use warnings;

my(%hDsy, %hKey, %hVal, %hCnt);
my(@aDsy, @aKey);

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;
}

print join("\t", "", @aDsy,"\n");
foreach my $sKey (@aKey){
  my $sMax = (sort{$b<=>$a}values %{$hCnt{$sKey}})[0];
  foreach my $sCnt (1 .. $sMax){
    my $sOut = "$sKey";
    foreach my $sDsy (@aDsy){
      $sOut .= "\t$hVal{$sKey,$sDsy,$sCnt}";
    }
    print "$sOut\n";
  }
}


   

Okelani

回復(fù) 1# Tracy_Panda

1. #!/usr/bin/perl
   
2. use 5.018;
   
3. 
   
4. my %n;
   
5. while (<DATA>) {
   
6.     my ( $n, $d, $v ) = split;
   
7.     push @{ $n{$n}{$d} }, $v // '';
   
8. }
   
9. 
   
10. my ($k) = keys %n;
    
11. my @dys = sort { $a cmp $b } keys %{ $n{$k} };
    
12. my $n = $#{ $n{$k}{ $dys[0] } };
    
13. say join "\t", '', @dys;
    
14. 
    
15. for my $k ( sort keys %n ) {
    
16.     for my $i ( 0 .. $n ) {
    
17.         say join "\t", $k, map { $n{$k}{$_}[$i] } @dys;
    
18.     }
    
19. }
    
20. 
    
21. __DATA__
    
22. 2698         DYS389I        12
    
23. 2698         DYS389I        12
    
24. 2720         DYS389I        12
    
25. 2720         DYS389I        12
    
26. 2736         DYS389I        12
    
27. 2736         DYS389I        12
    
28. 2698         DYS389II        27
    
29. 2698         DYS389II        27
    
30. 2720         DYS389II        28
    
31. 2720         DYS389II         
    
32. 2736         DYS389II        29
    
33. 2736         DYS389II         
    
34. 2698         DYS390        25
    
35. 2698         DYS390        25
    
36. 2720         DYS390        24
    
37. 2720         DYS390         
    
38. 2736         DYS390        22
    
39. 2736         DYS390         
    
40. 2698         DYS456        15
    
41. 2698         DYS456        15
    
42. 2720         DYS456        14
    
43. 2720         DYS456        14
    
44. 2736         DYS456        15
    
45. 2736         DYS456         
    

復(fù)制代碼

RE_HASH

$> cat test.pl
##read file
while (<>
{
@F= split /\s+/, $_;
$H->{$F[1]} = $i++ unless (exists $H->{$F[1]});
push @{$O->{$F[0]}->{$F[1]}}, $F[2];
}
use Data:umper;
printf "Data structure:\n---------\n%s\nResult:\n--------------\n", Dumper $O;
$,="\t";
print "",sort keys $H;
print "\n";
for (sort keys %$O)
{
for $i ( 0,1){
printf "$_";
foreach my $k (sort keys %$H)
{
printf "\t%s", $O->{$_}->{$k}->[$i];
}
print "\n";
}}

Tracy_Panda

先謝謝啦，測(cè)試一下，基本上沒什麼問(wèn)題，我要好好研究裏面具體每一步的意義，還不是很能看懂，後續(xù)如果有問(wèn)題還請(qǐng)多多指教 回復(fù) 6# jason680


   

Tracy_Panda

先謝謝啦，我測(cè)試一下蝦 回復(fù) 7# Okelani