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

Diff of /FigKernelScripts/make_annotations_for_sprout.pl

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

revision 1.3, Mon Oct 11 18:07:51 2004 UTC revision 1.4, Mon Dec 6 22:08:10 2004 UTC
# Line 14  Line 14 
14    
15  @genomes = grep { m/^(\S+)/; $_ = $1 } `cut -f1 $genomes_file`;  @genomes = grep { m/^(\S+)/; $_ = $1 } `cut -f1 $genomes_file`;
16    
17  open(ANNOT,  ">$annotations_file") || die "could not write-open $annotations_file";  open(ANNOT,  "| sort -u > $annotations_file") || die "could not write-open $annotations_file";
18  open(TARGET, ">$istarget_file")    || die "could not write-open $istarget_file";  open(TARGET, "| sort -u > $istarget_file")    || die "could not write-open $istarget_file";
19  open(MAKEAN, ">$makeannot_file")   || die "could not write-open $makeannot_file";  open(MAKEAN, "| sort -u > $makeannot_file")   || die "could not write-open $makeannot_file";
20    
21  $time = time();  $time = time();
22  %user_time = (KEGG => $time + 1,  %user_time = (KEGG => $time + 1,
# Line 28  Line 28 
28  {  {
29      print STDERR "Processing $org " if $ENV{FIG_VERBOSE};      print STDERR "Processing $org " if $ENV{FIG_VERBOSE};
30    
31      @pegs = sort { &FIG::by_fig_id($a,$b) } $fig->pegs_of($org);      @pegs = $fig->pegs_of($org);
32      warn "No pegs for $org" unless @pegs;      warn "No pegs for $org" unless @pegs;
33    
34      foreach $peg (@pegs)      foreach $peg (@pegs)

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3