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

View of /FigKernelScripts/merge_assignments.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Thu Mar 26 17:07:37 2009 UTC (10 years, 11 months ago) by bartels
Branch: MAIN
CVS Tags: mgrast_dev_08112011, rast_rel_2009_05_18, mgrast_dev_08022011, rast_rel_2014_0912, myrast_rel40, mgrast_dev_05262011, 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_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
*** empty log message ***

#!/usr/bin/env perl

#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# ... Merge functions files in correct order of priority
#
#     usage:  merge_assignments.pl Org_Dir
#
#-----------------------------------------------------------------------

use strict;
use warnings;

use FIG;

my $org_dir;
(($org_dir = shift @ARGV) && (-d $org_dir))
    || die "Org-dir \'$org_dir\' does not exist";

my %func_of;
for my $file (qw(assigned_functions proposed_non_ff_functions proposed_functions proposed_user_functions)) {
    my $file_path = qq($org_dir/$file);
    next unless (-s $file_path);
    
    if (not open(IN_FILE, qq(<$file_path))) {
	warn "Could not read-open $file_path --- skipping";
	next;
    }
    else {
	my $line;
	while (defined($line = <IN_FILE>)) {
	    chomp $line;
	    my ($fid, $func) = split /\t/, $line;
	    $func_of{$fid}   = $func;
	}
    }
}


open(OUT_FILE, qq(>$org_dir/assigned_functions))
    || die "Could not write-open $org_dir/asigned_functions";

foreach my $fid (sort { &FIG::by_fig_id($a, $b) } keys %func_of) {
    print OUT_FILE qq($fid\t$func_of{$fid}\n);
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3