Mercurial > repos > mcharles > genephys
view genephys/fastaGroomerForMakeBlastdb.pl @ 4:3d79224aa2dc draft
Uploaded
author | mcharles |
---|---|
date | Thu, 30 Oct 2014 06:06:34 -0400 |
parents | 8dfa09868059 |
children |
line wrap: on
line source
#!/usr/bin/perl #V1.0.0 my $inputfasta = $ARGV[0]; open(IB, $inputfasta) or die ("Can't open $inputfasta \n"); while (my $ligne = <IB>){ if ($ligne=~/\[.*?\=.*?\]/){ $ligne =~ s/[\[\]]//g; print $ligne; } elsif ($ligne =~/^\>/){ print $ligne; $ligne = <IB>; $ligne =~ s/N/a/g; print $ligne; } else { print $ligne; } } close (IB);