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

View of /FigKernelScripts/svr_all_models.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (download) (as text) (annotate)
Tue Mar 8 16:02:33 2011 UTC (9 years ago) by overbeek
Branch: MAIN
CVS Tags: mgrast_dev_08112011, mgrast_dev_08022011, rast_rel_2014_0912, myrast_rel40, mgrast_dev_05262011, mgrast_dev_04082011, mgrast_version_3_2, mgrast_dev_12152011, mgrast_dev_06072011, rast_rel_2014_0729, mgrast_release_3_0, mgrast_dev_03252011, mgrast_release_3_0_4, mgrast_release_3_0_2, mgrast_release_3_0_3, mgrast_release_3_0_1, mgrast_dev_03312011, mgrast_release_3_1_2, mgrast_release_3_1_1, mgrast_release_3_1_0, mgrast_dev_04132011, mgrast_dev_04012011, myrast_33, rast_rel_2011_0928, mgrast_dev_04052011, mgrast_dev_10262011, HEAD
Changes since 1.1: +4 -1 lines
keep only Seed models

use strict;

use Getopt::Long;
use SeedEnv;

#
# This is a SAS Component
#


=head1 svr_all_models

List the existing metabolic models (and the genomes for which
they were built).

There is no input.  The output is 2-column table containing
genome and model IDs.

------
Example:

    svr_all_models > genome_model.table

would produce a 2-column table of genome IDs and model IDs.
------

=back

=head2 Output Format

The standard output is a file where each line contains genome ID and a model
ID (tab-separated).

=cut

use SeedUtils;
use SAPserver;
my $sapObject = SAPserver->new();

my $modelH = $sapObject->all_models;

foreach my $model (sort { $modelH->{$a} <=> $modelH->{$b} } keys(%$modelH))
{
    if ($model =~ /^Seed/)
    {
	print join("\t",($modelH->{$model},$model)),"\n";
    }
}


MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3