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

View of /FigKernelScripts/dna_seq.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Thu May 20 18:06:00 2004 UTC (16 years, 1 month 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
interval stuff

# -*- perl -*-
use Carp;
use Data::Dumper;

use FIG;
$fig = new FIG;

# usage: dna_seq < INTERVALs > fasta.DNA

while (defined($_ = <STDIN>))
{
    if ($_ =~ /(\d+\.\d+)\t(\S+)$/)
    {
	($genome,$loc) = ($1,$2);
	$seq = $fig->dna_seq($genome,$loc);
	&FIG::display_id_and_seq("$genome:$loc",\$seq);
    }
}
	    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3