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

Diff of /FigKernelScripts/promote_orfs_to_pegs.pl

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

revision 1.13, Wed Feb 13 14:54:27 2008 UTC revision 1.14, Fri Jul 16 15:09:17 2010 UTC
# Line 20  Line 20 
20  use warnings;  use warnings;
21    
22  use FIG;  use FIG;
23  my $fig = new FIG;  my $fig = FIG->new();
24    
25  use NewGenome;  use NewGenome;
26  use ToCall;  use ToCall;
# Line 48  Line 48 
48  my $to_call;  my $to_call;
49  $to_call = NewGenome->new($to_call_dir, "all");  $to_call = NewGenome->new($to_call_dir, "all");
50    
51  my @neighbors = map { m/^(\d+\.\d+)/o ? ($1) : () } `cat $to_call_dir/neighbors`;  
52    my @neighbors = ();
53    my $neighbors_file;
54    if ((-s ($neighbors_file = "$to_call_dir/closest.genomes")) ||
55        (-s ($neighbors_file = "$to_call_dir/neighbors"))
56        ) {
57        @neighbors = map { m/^(\d+\.\d+)/o ? ($1) : () } &FIG::file_read($neighbors_file);
58    }
59    
60    
61  open(CALLED_BY, ">>$to_call_dir/called_by")  open(CALLED_BY, ">>$to_call_dir/called_by")
62      || die "could not open $to_call_dir/called_by";      || die "could not open $to_call_dir/called_by";

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3