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

View of /FigKernelScripts/submit_corr_to_server.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (download) (as text) (annotate)
Fri Mar 2 15:50:18 2012 UTC (7 years, 8 months ago) by overbeek
Branch: MAIN
CVS Tags: rast_rel_2014_0729, mgrast_version_3_2, rast_rel_2014_0912, HEAD
Changes since 1.1: +1 -2 lines
fefault value for map submission

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

my $usage = "usage: submit_corr Dir";
my($dir);
(
 ($dir = shift @ARGV) && (-d $dir) && opendir(CORR,$dir)
)
    || die $usage;

my @maps = map { ($_ =~ /^(\d+\.\d+)-(\d+\.\d+)$/) ? [$1,$2] : () } readdir(CORR);

my $sapO = SAPserver->new;
foreach my $map (@maps)
{
    my($g1,$g2) = @$map;
    my @gL = map { chop; [split(/\t/,$_)] } `cat $dir/$g1-$g2`;
    my $rc = $sapO->submit_gene_correspondence({
	                                         -genome1 => $g1,
						 -genome2 => $g2,
						 -correspondences => \@gL
					       });
    if ($rc != 1)
    {
	print STDERR "$g1-$g2: rc=$rc\n";
    }
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3