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

View of /FigKernelScripts/load_ss_classification.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Tue Nov 25 06:00:27 2008 UTC (11 years, 3 months ago) by redwards
Branch: MAIN
CVS Tags: mgrast_dev_08112011, rast_rel_2009_05_18, mgrast_dev_08022011, rast_rel_2014_0912, myrast_rel40, mgrast_dev_05262011, rast_rel_2008_12_18, mgrast_dev_04082011, rast_rel_2010_0928, mgrast_version_3_2, mgrast_dev_12152011, mgrast_dev_06072011, rast_rel_2009_0925, rast_rel_2010_0526, rast_rel_2014_0729, mgrast_dev_02212011, rast_rel_2010_1206, mgrast_release_3_0, mgrast_dev_03252011, rast_rel_2010_0118, rast_rel_2009_02_05, rast_rel_2011_0119, 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, rast_rel_2009_07_09, rast_rel_2010_0827, myrast_33, rast_rel_2011_0928, mgrast_dev_04052011, mgrast_dev_02222011, rast_rel_2009_03_26, mgrast_dev_10262011, HEAD
adding ss classification methods

# _perl_
#

=pod load_ss_classification.pl

Load the subsystem classifications from a text file. Take the excel file from Sveta, convert it to text, and use this to set the data structures. Note that this will completely overwrite whatever was there before.

There are two versions, just make sure your columns are in the appropriate order for the version that you are using.

=author

Rob Edwards, various versions 2004-2008

=cut

use strict;
use FIG;
my $fig=new FIG;

my $f = shift || die "File of new heirarchy?";
open(IN, $f) || die "Can't open $f";
while (<IN>)
{
	chomp;
	# change the next line depending on your order.
	my ($ss, $class1, $class2)=split /\t/;
	#my ($class1, $class2, $ss)=split /\t/;
	
	my $sub=$fig->get_subsystem($ss);
	#print STDERR "Adding $class1 :: $class2 :: $ss\n";
	$sub->set_classification([$class1, $class2]);
	$sub->write_subsystem();
}
close IN;


MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3