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

View of /FigKernelScripts/get_subsystem_properties.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Sun Sep 30 23:08:43 2007 UTC (12 years, 1 month ago) by overbeek
Branch: MAIN
CVS Tags: mgrast_dev_08112011, rast_rel_2009_05_18, mgrast_dev_08022011, rast_rel_2014_0912, rast_rel_2008_06_18, myrast_rel40, rast_rel_2008_06_16, mgrast_dev_05262011, rast_rel_2008_12_18, mgrast_dev_04082011, rast_rel_2008_07_21, rast_rel_2010_0928, rast_2008_0924, mgrast_version_3_2, mgrast_dev_12152011, rast_rel_2008_04_23, mgrast_dev_06072011, rast_rel_2008_09_30, 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, mgrast_rel_2008_0924, mgrast_rel_2008_1110_v2, rast_rel_2009_02_05, rast_rel_2011_0119, mgrast_rel_2008_0625, 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, rast_rel_2008_10_09, mgrast_dev_04012011, rast_release_2008_09_29, mgrast_rel_2008_0806, mgrast_rel_2008_0923, mgrast_rel_2008_0919, rast_rel_2009_07_09, rast_rel_2010_0827, mgrast_rel_2008_1110, myrast_33, rast_rel_2011_0928, rast_rel_2008_09_29, mgrast_rel_2008_0917, rast_rel_2008_10_29, mgrast_dev_04052011, mgrast_dev_02222011, rast_rel_2009_03_26, mgrast_dev_10262011, rast_rel_2008_11_24, rast_rel_2008_08_07, HEAD
minor modifications to get subsystems statistics

use FIG;
my $fig = new FIG;

foreach $sub_name ($fig->all_subsystems)
{
    my $sub = new Subsystem($sub_name,$fig);
    $curator = $sub->get_curator;
    $curator =~ s/master://;
    $created = $sub->get_created;
    $created_readable = $fig->epoch_to_readable($created);
    $last_updated = $sub->get_last_updated;
    $last_updated_readable = $fig->epoch_to_readable($last_updated);
    @genomes = $sub->get_genomes;
    $genomesN = @genomes;
    $vcodes = &get_vcodes($sub);
    $notes = $sub->get_notes;
    $len_notes = $notes ? length($notes) : 0;
    $desc = $sub->get_description;
    $len_desc = $desc ? length($desc) : 0;
    $diagrams = $sub->get_diagrams;
    $class = join("; ",@{$sub->get_classification;});


    print join("\t",($sub_name,$curator,$created,$created_readable,$last_updated,$last_updated_readable,$genomesN,$vcodes,$len_notes,$len_desc,$diagrams,$class)),"\n";

}

sub get_vcodes {
    my($sub) = @_;

    my @variants = $sub->get_variant_codes;
    my %vcodes;
    foreach my $vc (@variants)
    {
	$vcodes{$vc}++;
    }
    my $set_vc = join("; ",map { "$_,$vcodes{$_}" } keys(%vcodes));
    return $set_vc;
}
    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3