[Bio] / Sprout / KBIDUtilsTest.pl Repository:
ViewVC logotype

View of /Sprout/KBIDUtilsTest.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Thu Dec 22 17:31:37 2011 UTC (7 years, 4 months ago) by parrello
Branch: MAIN
CVS Tags: rast_rel_2014_0729, mgrast_version_3_2, rast_rel_2014_0912, HEAD
Proposed wrapper for Kbase ID server.

use strict;
use KBIDUtils;

my @seedGroup1 = qw(fig|360108.3.peg.1041 fig|100226.1.peg.1498 fig|106370.11.peg.3109
                    FIG000171 FIG001509 100226.1 83333.1 100226.1:NC_003888
                    83333.1:NC_000913);
my @molGroup1 = qw(3216416 3216472 3216451 51493 10390 212717);
my @seedGroup2 = qw(fig|360108.3.peg.1041 fig|100226.1.peg.1498 fig|106370.11.peg.3109
                    fig|126740.4.peg.188 FIG001509 FIG000262 100226.1
                    83333.1:NC_000913);

my $kbidObject = KBIDUtils->new();
my $newIdHash = $kbidObject->create_kbase_ids(SEED => \@seedGroup1);
for my $id (sort keys %$newIdHash) {
    print "$id = $newIdHash->{$id}\n";
}
my $molIdHash = $kbidObject->get_kbase_ids(MOL => \@molGroup1);
for my $id (sort keys %$molIdHash) {
    print "$id = $molIdHash->{$id}\n";
}
my $oldIdHash = $kbidObject->get_kbase_ids(SEED => \@seedGroup2);
for my $id (sort keys %$oldIdHash) {
    print "$id = $oldIdHash->{$id}\n";
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3