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

Diff of /FigKernelScripts/make_fam_tabs.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4, Mon Dec 5 18:56:37 2005 UTC revision 1.5, Wed Dec 21 19:14:13 2005 UTC
# Line 41  Line 41 
41      @prots = split(/\t/,$_);      @prots = split(/\t/,$_);
42      foreach $prot (@prots)      foreach $prot (@prots)
43      {      {
44            unless ($prot) {print STDERR "No protein id (|$prot|) in $syn at $_\n"; next}
45          print TAB1 "$prot\t$cid\n";          print TAB1 "$prot\t$cid\n";
46          $to_cid{$prot} = $cid;          $to_cid{$prot} = $cid;
47      }      }
# Line 61  Line 62 
62           # we don't have a synonym for this protein           # we don't have a synonym for this protein
63           # we can either ignore it or just give it a unique id. Lets do that.           # we can either ignore it or just give it a unique id. Lets do that.
64           $to_cid{$lid}=$cid;           $to_cid{$lid}=$cid;
          $cid++;  
65           # and write it to the file           # and write it to the file
66           print TAB1 "$prot\t$cid\n";           unless ($lid) {print STDERR "No protein id (|$lid|) in $syn at $_\n"; next}
67             print TAB1 "$lid\t$cid\n";
68             $cid++;
69          }          }
70          print TAB2 "$fam\t$to_cid{$lid}\n";          print TAB2 "$fam\t$to_cid{$lid}\n";
71      }      }

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3