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

Uploaded
author mcharles
date Tue, 07 Oct 2014 10:34:34 -0400
parents 442a7c88b886
children
comparison
equal deleted inserted replaced
6:1776b8ddd87e 7:3f7b0788a1c4
1 #!/usr/bin/perl 1 #!/usr/bin/perl
2 #V1.0.0
2 my $inputfasta = $ARGV[0]; 3 my $inputfasta = $ARGV[0];
3 4
4 open(IB, $inputfasta) or die ("Can't open $inputfasta \n"); 5 open(IB, $inputfasta) or die ("Can't open $inputfasta \n");
5 6
6 while (my $ligne = <IB>){ 7 while (my $ligne = <IB>){