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

View of /DomReg/scripts/add_RegFam_to_FIGRegulons.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Thu Apr 19 20:26:17 2007 UTC (12 years, 11 months ago) by mkubal
Branch: MAIN
CVS Tags: HEAD
v1

#!/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/rtb_regulators.txt");
while($_ = <IN>){
    my $family;
    chomp($_);
    @parts = split("\t",$_);
    $family  = $parts[6];

   
   if($family =~/\w/){
       print "$family\n";
       my $dt_obj;
      $dt_obj =  $dbmaster->RegFam->get_objects( { 'name' => $family } );
       my $test = scalar(@$dt_obj);   
       if($test == 0){
	   $dt_obj = $dbmaster->RegFam->create( { 'name'    => $family } );
       }
   }
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3