comparison rapsodyn/extractseq.pl @ 9:0e7c6fe60646 draft

Uploaded
author mcharles
date Mon, 20 Oct 2014 05:58:31 -0400
parents 3f7b0788a1c4
children 0a6c1cfe4dc8
comparison
equal deleted inserted replaced
8:d857538d9fea 9:0e7c6fe60646
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"; 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