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

View of /FigKernelScripts/submit_corr.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Mon Feb 20 20:07:20 2012 UTC (7 years, 9 months ago) by overbeek
Branch: MAIN
CVS Tags: rast_rel_2014_0729, mgrast_version_3_2, rast_rel_2014_0912, HEAD
create new saved correspondences

use SeedEnv;
use strict;
use Data::Dumper;

my $usage = "usage: submit_corr G1 G2";
my($g1,$g2);
(
 ($g1 = shift @ARGV) &&
 ($g2 = shift @ARGV)
)
    || die $usage;

my $sapO = SAPserver->new;

my $gL = $sapO->gene_correspondence_map({
                                -genome1 => $g1,
                                -genome2 => $g2,
                                -fullOutput => 1,
                                -passive => 0 });

my $rc = $sapO->submit_gene_correspondence({
                            -genome1 => $g1,
                            -genome2 => $g2,
                            -correspondences => $gL,
                            -passive => 0
			    });

print STDERR &Dumper($rc);

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3