estrain@0: #!/usr/bin/perl
estrain@0: 
estrain@0: open IN,$ARGV[0];
estrain@0: 
estrain@0: open OUT,">$ARGV[1]";
estrain@0: 
estrain@0: my %iso_hash;
estrain@0: 
estrain@0: ## Skip header
estrain@0: <IN>;
estrain@0: 
estrain@0: while(<IN>) {
estrain@0:   chomp();
estrain@0:   @vals=split(/\t/,$_);
estrain@0:   @els=split(/\_/,$vals[0]);
estrain@0:   if(exists $iso_hash{$els[0]}){
estrain@0:     $iso_hash{$els[0]}="$iso_hash{$els[0]} $vals[1]";
estrain@0:   } else {
estrain@0:     $iso_hash{$els[0]}=$vals[1];
estrain@0:   }
estrain@0: }
estrain@0: 
estrain@0: 
estrain@0: print OUT "Source.Name\tGene symbol\n";
estrain@0: foreach(sort keys %iso_hash){
estrain@0:   print OUT $_,"\t",$iso_hash{$_},"\n";
estrain@0: }
estrain@0: