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

Annotation of /FigKernelScripts/build_exemplar_fasta.pl

Parent Directory Parent Directory | Revision Log Revision Log


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

1 : efrank 1.1 # -*- perl -*-
2 :    
3 :     use Carp;
4 :     use Data::Dumper;
5 :     use FIG;
6 :    
7 :     my $fig = new FIG;
8 :     $| = 1;
9 :    
10 :     while (defined($_ = <STDIN>))
11 :     {
12 :     chop;
13 :     ($fam,$peg) = split(/\t/,$_);
14 : overbeek 1.2 if ($seq = $fig->get_translation($peg))
15 : efrank 1.1 {
16 :     print ">$peg\_$fam\n$seq\n";
17 :     }
18 :     }
19 :    
20 :    
21 :     undef $fig;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3