comparison pangenomeCogAnalysis_V1.pl @ 1:1f75641c2ee8 draft

Uploaded

0:731fb6cb324b

# print "$gene\n";
    my $cat = "unknown";
    if ($Cog_of_gene{$gene}){
        $cat = $Cog_of_gene{$gene};
    }     
    print OUT5 $coregenes{$gene}."\t"."$gene\t"."\t".$Gene_position{$gene}.$cat."\n";
    
}

close (OUT5);

1:1f75641c2ee8

# print "$gene\n";
    my $cat = "unknown";
    if ($Cog_of_gene{$gene}){
        $cat = $Cog_of_gene{$gene};
    }     
    print OUT5 $coregenes{$gene}."\t"."$gene\t".$Gene_position{$gene}."\t".$cat."\n";
    
}

close (OUT5);