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

Annotation of /FigKernelScripts/PickGeneBoundariesTest.pl

Parent Directory Parent Directory | Revision Log Revision Log


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

1 : parrello 1.1 #!/usr/bin/perl -w
2 :     use strict;
3 :     use Tracer;
4 :    
5 :     use FIGV;
6 :     use FullLocation;
7 :     use Tracer;
8 :     TSetup("4 FullLocation", "+>c:/tmp/trace.log");
9 :     my $genome = "666666.550";
10 :     my $fig = FIGV->new("m:/disks/anno/nmpdr/virtualData/666666.550");
11 :     my @tests = ( "NC_000964_4214500_4214599", "NC_000964_1791944_1793655",
12 :     "NC_000964_4214599_4214500", "NC_000964_100_199",
13 :     "NC_000964_199_100");
14 :     for my $test (@tests) {
15 :     my $floc = FullLocation->new($fig, "666666.550", $test);
16 :     Trace("Processing " . $floc->SeedString) if T(2);
17 :     my $rc = $floc->PickGeneBoundaries();
18 :     Trace(($rc ? "Found " : "Search failed for ") . $floc->SeedString) if T(2);
19 :     }
20 :    
21 :     1;
22 :    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3