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

View of /FigKernelScripts/location_of.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Sat Feb 26 19:49:59 2005 UTC (15 years, 3 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
filters for data mining

use FIG;
my $fig = new FIG;

# usage: location_of < PEG > PEG-GENOME-LOCATION

while (defined($_ = <STDIN>))
{
    if (($_ =~ /(\S+)$/) && ($peg = $1) && ($genome = &FIG::genome_of($peg)) && ($loc = $fig->feature_location($peg)))
    {
	print "$peg\t$genome\t$loc\n";
    }
}


MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3