☰

テキストファイルテーブルの解析と情報の集約

tag-icon • tag-icon sed awk perl
テキストファイルテーブルの解析と情報の集約

スペースで区切られた次の列を含む長いテキストファイルがあります。

Id            Pos Ref  Var  Cn   SF:R1   SR  He  Ho NC       
cm|371443199  22  G     A    R   Pass:8   0   1  0  0       
cm|371443199  25  C     A    M   Pass:13  0   0  1  0
cm|371443199  22  G     A    R   Pass:8   0   1  0  0        
cm|367079424  17  C     G    S   Pass:19  0   0  1  0      
cm|371443198  17  G     A    R   Pass:18  0   1  0  0       
cm|367079424  17  G     A    R   Pass:18  0   0  1  0

数とともに、各一意のIDを一覧表示するテーブルを作成したいと思います。

  • このIDは何回表示されますか？
  • 通過した行数（6列）
  • どのくらいの価値があるかHe（8列）
  • どのくらいの価値があるかHo（9列）

この場合：

Id            CountId  Countpass   CountHe CountHO
cm|371443199   3        3          2        1
cm|367079424   2        2          0        2

このテーブルをどのように作成できますか？

ベストアンサー1

perl質問の内容を含めるために仮想の1つの方法を使用しますinfile（IDを格納するためにハッシュを使用しているので、IDが出力で必ず同じ順序である必要はありません）。

コンテンツscript.pl:

use strict;
use warnings;

my (%data);

while ( <> ) { 

    ## Omit header.
    next if $. == 1;

    ## Remove last '\n'.
    chomp;

    ## Split line in spaces.
    my @f = split;

    ## If this ID exists, get previously values and add values of this
    ## line to them. Otherwise, begin to count now.
    my @counts = exists $data{ $f[0] } ? @{ $data{ $f[0] } } : (); 
    $counts[0]++;
    $counts[1]++ if substr( $f[5], 0, 4 ) eq q|Pass|;
    $counts[2] += $f[7];
    $counts[3] += $f[8];
    splice @{ $data{ $f[0] } }, 0, @{ $data{ $f[0] } }, @counts; 
}

## Format output.
my $print_format = qq|%-15s %-10s %-12s %-10s %-10s\n|;

## Print header.
printf $print_format, qw|Id CountId CountPass CountHe CountHo|;

## For every ID saved in the hash print acumulated values.
for my $id ( keys %data ) { 
    printf $print_format, $id, @{ $data{ $id } };
}

次のように実行します。

perl script.pl infile

次の出力に：

Id              CountId    CountPass    CountHe    CountHo   
cm|371443198    1          1            1          0         
cm|371443199    3          3            2          1         
cm|367079424    2          2            0          2

おすすめ記事