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

Annotation of /FigKernelScripts/generate_input_for_auto_assignments.pl

Parent Directory Parent Directory | Revision Log Revision Log


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

1 : efrank 1.1 # usage: generate_input_for_auto_assignments < fasta > ready.for.auto.assign
2 :    
3 :     use FIG;
4 :    
5 :     $/ = "\n>";
6 :     while (defined($_ = <STDIN>))
7 :     {
8 :     chomp;
9 :     if ($_ =~ /^>?(\S+)([^\n]*\n)(.*)/s)
10 :     {
11 :     $id = $1;
12 :     $comment = $2;
13 :     $seq = $3;
14 :     $seq =~ s/\s//g;
15 :     print "$id\t$seq\n";
16 :     }
17 :     else
18 :     {
19 :     print STDERR "ERROR: $id\n";
20 :     }
21 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3