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

View of /FigKernelScripts/build_exemplar_fasta.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Mon Dec 1 20:46:40 2003 UTC (16 years, 6 months ago) by efrank
Branch: MAIN
CVS Tags: V00-00-01, V00-00-00

Makefile:
	get it to work with the release tools

All the rest:
	had to rename foo to foo.pl so that makefiles could recognize
	perl source from, say, Makefiles and READMEs

# -*- perl -*-

use Carp;
use Data::Dumper;
use FIG;

my $fig = new FIG;
$| = 1;

while (defined($_ = <STDIN>))
{
    chop;
    ($fam,$peg) = split(/\t/,$_);
    if ($seq = $fig->get_translation($rid))
    {
	print ">$peg\_$fam\n$seq\n";
    }
}

	
undef $fig;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3