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

Annotation of /FigKernelScripts/dna_seq.pl

Parent Directory Parent Directory | Revision Log Revision Log


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

1 : overbeek 1.1 # -*- perl -*-
2 :     use Carp;
3 :     use Data::Dumper;
4 :    
5 :     use FIG;
6 :     $fig = new FIG;
7 :    
8 :     # usage: dna_seq < INTERVALs > fasta.DNA
9 :    
10 :     while (defined($_ = <STDIN>))
11 :     {
12 :     if ($_ =~ /(\d+\.\d+)\t(\S+)$/)
13 :     {
14 :     ($genome,$loc) = ($1,$2);
15 :     $seq = $fig->dna_seq($genome,$loc);
16 :     &FIG::display_id_and_seq("$genome:$loc",\$seq);
17 :     }
18 :     }
19 :    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3