他の列の重複を削除せずに、最初の列の重複した識別子を持つ配列のデータを結合する方法

Question

タブ区切りのデータで配列を移入しました。私は他の列で重複を削除せずに最初の列に重複したIDを持つ行をマージしたい：ここ

は、私がコードを実行する前に@fusions配列の行がどのように見えるかです：

所望の出力：

私はハッシュを使用してみましたが、それはすべての列に重複を削除し、私は最初の列に重複を削除する必要があります。 ここでは、私が採用したハッシュを使用したコードを示します。

foreach (@fusions){ 
    chomp($_); 
    my ($key, @items) = split /\t/; 
    $fusion_hash{$key}{$_}++ for @items; 
    } 

#print join("\t", $_, sort keys %{$fusion_hash{$_}}), "\n" for sort keys %fusion_hash; 

データをマージし、他の列の重複を削除しないようにコードを変更する方法をお勧めします。おかげ

Answer 1

あなたは「キー」仕事をする必要があります

use strict; 
my %fusion_hash; 
my @fusions= split("\n", <<EOT); 
SLC34A2-ROS1.S4R32.COSF1197 chr4 25665952 PASS 56812 SLC34A2 4 COSF1197 
SLC34A2-ROS1.S4R32.COSF1197 chr6 117650609 PASS 56812 ROS1 32 COSF1197 
SLC34A2-ROS1.S4R34.COSF1198 chr4 25665952 PASS 3367 SLC34A2 4 COSF1198 
SLC34A2-ROS1.S4R34.COSF1198 chr6 117645578 PASS 3367 ROS1 34 COSF1198 
EOT 

foreach (@fusions){ 
    chomp($_); 
    my ($key, @items) = split /\s/; 
    $fusion_hash{$key} = [] unless defined $fusion_hash{$key} ; 
    push @{$fusion_hash{$key}}, @items; 
} 

#print join("\t", $_, @{$fusion_hash{$_}}), "\n" for sort keys %fusion_hash; 

あたりの配列内のデータを保存する必要があります。

HTH ゲオルクところで

：これは自動的にperlので行われているように、あなたはライン

 $fusion_hash{$key} = [] unless defined $fusion_hash{$key} ; 

をOMMITすることができます。

Answer 2

ゲオルグの答えとは少し異なります。私はデータを2つの部分に分けるだけです（私たちが一致しているビットと残りの部分）。

#!/usr/bin/perl 

use strict; 
use warnings; 
use 5.010; 

my %data; 

while (<DATA>) { 
    chomp; 

    my ($key, $val) = split//, $_, 2; 
    push @{ $data{$key} }, $val; 
} 

foreach (sort keys %data) { 
    say $_, "\t", join "\t", @{ $data{$_} }; 
} 

__DATA__ 
SLC34A2-ROS1.S4R32.COSF1197 chr4 25665952 PASS 56812 SLC34A2 4 COSF1197 
SLC34A2-ROS1.S4R32.COSF1197 chr6 117650609 PASS 56812 ROS1 32 COSF1197 
SLC34A2-ROS1.S4R34.COSF1198 chr4 25665952 PASS 3367 SLC34A2 4 COSF1198 
SLC34A2-ROS1.S4R34.COSF1198 chr6 117645578 PASS 3367 ROS1 34 COSF1198