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

Annotation of /FigKernelScripts/get_translations.pl

Parent Directory Parent Directory | Revision Log Revision Log


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

1 : overbeek 1.1 use FIG;
2 :    
3 :     my $fig = new FIG;
4 :    
5 :     $usage = "get_translations Id1 Id2 ... > fasta.of.translations";
6 :    
7 :     (@ARGV > 0) || die "usage: $usage";
8 :    
9 :     foreach $id (@ARGV)
10 :     {
11 :     next if ($seen{$id});
12 :     $seen{$id} = 1;
13 :    
14 :     if ($seq = $fig->get_translation($id))
15 :     {
16 :     print ">$id\n$seq\n";
17 :     }
18 :     else
19 :     {
20 :     print STDERR "Could not get translation for $id\n";
21 :     }
22 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3