Mercurial > repos > mcharles > rapsodyn
annotate rapsodyn/fastaGroomerForMakeBlastdb.pl @ 29:7b8646f46010 draft
Uploaded
author | mcharles |
---|---|
date | Wed, 08 Oct 2014 09:06:53 -0400 |
parents | afaf2e8aedcc |
children |
rev | line source |
---|---|
22 | 1 #!/usr/bin/perl |
29 | 2 #V1.0.0 |
22 | 3 my $inputfasta = $ARGV[0]; |
4 | |
5 open(IB, $inputfasta) or die ("Can't open $inputfasta \n"); | |
6 | |
7 while (my $ligne = <IB>){ | |
8 if ($ligne=~/\[.*?\=.*?\]/){ | |
9 $ligne =~ s/[\[\]]//g; | |
10 print $ligne; | |
11 } | |
12 elsif ($ligne =~/^\>/){ | |
13 print $ligne; | |
14 $ligne = <IB>; | |
15 $ligne =~ s/N/a/g; | |
16 print $ligne; | |
17 } | |
18 else { | |
19 print $ligne; | |
20 } | |
21 } | |
22 | |
23 close (IB); |