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@7:   $iso_hash{$els[0]}{$vals[1]}=1;
estrain@0: }
estrain@0: 
estrain@0: 
estrain@0: print OUT "Source.Name\tGene symbol\n";
estrain@0: foreach(sort keys %iso_hash){
estrain@7:   print OUT $_;
estrain@7:   foreach my $gene (sort keys %{$iso_hash{$_}}){
estrain@7:     print OUT " ",$gene;
estrain@7:   }
estrain@7:   print OUT "\n";
estrain@0: }
estrain@0: