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

Annotation of /DomReg/scripts/add_RegFam_to_FIGRegulons.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download) (as text)

1 : mkubal 1.1 #!/usr/bin/env /home/bartels/FIGdisk/env/cee/bin/perl
2 :    
3 :     #use strict;
4 :     #use warnings;
5 :    
6 :     use lib '/home/mkubal/PPO/';
7 :     use lib '/home/mkubal/DomReg/';
8 :    
9 :     use DBMaster;
10 :    
11 :     my $dbmaster = DBMaster->new('FIGRegulons');
12 :    
13 :     open(IN,"/home/mkubal/DomReg/data/rtb_regulators.txt");
14 :     while($_ = <IN>){
15 :     my $family;
16 :     chomp($_);
17 :     @parts = split("\t",$_);
18 :     $family = $parts[6];
19 :    
20 :    
21 :     if($family =~/\w/){
22 :     print "$family\n";
23 :     my $dt_obj;
24 :     $dt_obj = $dbmaster->RegFam->get_objects( { 'name' => $family } );
25 :     my $test = scalar(@$dt_obj);
26 :     if($test == 0){
27 :     $dt_obj = $dbmaster->RegFam->create( { 'name' => $family } );
28 :     }
29 :     }
30 :     }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3