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

View of /FigKernelScripts/svr_reactions_in_model.pl

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.1 - (download) (as text) (annotate)
Sat Mar 5 19:09:03 2011 UTC (9 years, 3 months ago) by parrello
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
New script for Ross.

use strict;

use Getopt::Long;
use ScriptThing;
use SAPserver;

# This is a SAS Component

=head1 svr_reactions_in_model

Takes as input a table containing model IDs and 
adds a column giving a reaction in the model. Since each model contains
hundreds of reactions, the output file will be extremely large compared to the
input file.

Example: svr_all_models | svr_reactions_in_model > table.with.reactions

would produce a 3-column table: [genomeID, modelID,reactionID]



=head2 Command-Line Options

=over 4

=item -c Column

This is used only if the column containing reaction IDs is not the last.


=head2 Output Format

The standard output is a tab-delimited file. It consists of the input
file with two extra columns (distance and connected reaction).


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

my $usage = "usage: svr_reactions_in_model [-c column] < models > models.with.reactions";

my $column;
my $rc  = GetOptions('c=i' => \$column,
if (! $rc) { print STDERR $usage; exit }

while (my @lines = ScriptThing::GetBatch(\*STDIN, 10, $column)) {
    my $reactionsH = $sapObject->models_to_reactions( -ids => [map { $_->[0] } @lines] );
    for my $line (@lines) {
        my ($model, $text) = @$line;
        my $reactions = $reactionsH->{$model};
        for my $reaction (@$reactions) {
            print "$text\t$reaction\n";

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3