[Bio] / DomReg / scripts / add_BSFunction_to_FIGRegulons.pl Repository:
ViewVC logotype

View of /DomReg/scripts/add_BSFunction_to_FIGRegulons.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (download) (as text) (annotate)
Mon Apr 23 19:54:56 2007 UTC (12 years, 10 months ago) by mkubal
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +6 -5 lines
v2

#!/usr/bin/env /home/bartels/FIGdisk/env/cee/bin/perl

#use strict;
#use warnings;

use lib '/home/mkubal/PPO/';
use lib '/home/mkubal/DomReg/';

use DBMaster;

my $dbmaster = DBMaster->new('FIGRegulons');

open(IN,"/home/mkubal/DomReg/data/BSFunction.txt");
while($_ = <IN>){
    chomp($_);
    @parts = split("\t",$_);
    $name = $parts[0];
    $description = $parts[1];
    print "$name\t$description\n";
    $bsf_objs =  $dbmaster->BSFunction->get_objects( { 'name' => $name } );
    if(!scalar(@$bsf_objs)){
	$bsf_obj = $dbmaster->BSFunction->create( { 'name'    => $name,
						    'description' => $description 
						    } );
    }
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3