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

View of /FigKernelScripts/get_translations.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Wed Oct 20 17:39:11 2004 UTC (15 years, 8 months ago) by overbeek
Branch: MAIN
CVS Tags: merge-trunktag-bobdev_news-2, Root-bobdev_news, merge-bobdev_news-1, caBIG-dataload-0, merge-trunktag-bobdev_news-1, merge-bodev_news-3, efrank-preMakefileToStandardMk, caBIG-00-00-00, merge-bobdev_news-2, merge-trunktag-bodev_news-3
Branch point for: Branch-bobdev_news
add get_translations

use FIG;

my $fig = new FIG;

$usage = "get_translations Id1 Id2 ...  > fasta.of.translations";

(@ARGV > 0) || die "usage: $usage";

foreach $id (@ARGV)
{
    next if ($seen{$id});
    $seen{$id} = 1;
    
    if ($seq = $fig->get_translation($id))
    {
	print ">$id\n$seq\n";
    }
    else
    {
	print STDERR "Could not get translation for $id\n";
    }
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3