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

Uploaded

6:1776b8ddd87e

#!/usr/bin/perl
#V1.10

use strict;
use warnings;
use Getopt::Long;

		else {
			$descriptor.="?_?";
		}
		$variant{"desc"}=$descriptor;
		
		print ">",$variant{"ref"},"_",$descriptor,"_","\n",$variant{"SEQ"},"\n"; #MAJ : ajout du diese pour pas perturber blast

		
		
		#print ">",$variant{"ref"},"_",$variant{"position"},"_",$variant{"depth"},"\n",$variant{"SEQ"},"\n";
		

7:3f7b0788a1c4

#!/usr/bin/perl
#V1.01 #Ajout d'un _ a la fin du nom pour eviter les problemes avec ncbi blast+

use strict;
use warnings;
use Getopt::Long;

		else {
			$descriptor.="?_?";
		}
		$variant{"desc"}=$descriptor;
		
		print ">",$variant{"ref"},"_",$descriptor,"\n",$variant{"SEQ"},"\n";

		
		
		#print ">",$variant{"ref"},"_",$variant{"position"},"_",$variant{"depth"},"\n",$variant{"SEQ"},"\n";