[Bio] / FigKernelScripts / flatten_fasta.pl Repository:
ViewVC logotype

Annotation of /FigKernelScripts/flatten_fasta.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download) (as text)

1 : overbeek 1.1
2 :     $/ = "\n>";
3 :     while (defined($_ = <STDIN>))
4 :     {
5 :     chomp;
6 :     if ($_ =~ /^>?(\S+)[^\n]*\n(.*)/s)
7 :     {
8 :     $id = $1;
9 :     $seq = $2;
10 :     $seq =~ s/\s//gs;
11 :     print "$id\t$seq\n";
12 :     }
13 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3