Mercurial > repos > mcharles > rapsosnp

comparison rapsodyn/extractseq.pl @ 7:3f7b0788a1c4 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author mcharles
date Tue, 07 Oct 2014 10:34:34 -0400
parents 1776b8ddd87e
children 0e7c6fe60646
comparison
equal deleted inserted replaced
6:1776b8ddd87e 7:3f7b0788a1c4
1 #!/usr/bin/perl 1 #!/usr/bin/perl
2 #V1.10 2 #V1.01 #Ajout d'un _ a la fin du nom pour eviter les problemes avec ncbi blast+
3 3
4 use strict; 4 use strict;
5 use warnings; 5 use warnings;
6 use Getopt::Long; 6 use Getopt::Long;
7 7
87 else { 87 else {
88 $descriptor.="?_?"; 88 $descriptor.="?_?";
89 } 89 }
90 $variant{"desc"}=$descriptor; 90 $variant{"desc"}=$descriptor;
91 91
92 print ">",$variant{"ref"},"_",$descriptor,"_","\n",$variant{"SEQ"},"\n"; #MAJ : ajout du diese pour pas perturber blast 92 print ">",$variant{"ref"},"_",$descriptor,"\n",$variant{"SEQ"},"\n";
93 93
94 94
95 95
96 #print ">",$variant{"ref"},"_",$variant{"position"},"_",$variant{"depth"},"\n",$variant{"SEQ"},"\n"; 96 #print ">",$variant{"ref"},"_",$variant{"position"},"_",$variant{"depth"},"\n",$variant{"SEQ"},"\n";
97 97