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

Diff of /FigKernelScripts/svr_compare_feature_tables.pl

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

revision 1.2, Sun Aug 29 19:51:57 2010 UTC revision 1.3, Sun Aug 29 19:59:15 2010 UTC
# Line 314  Line 314 
314          $dat->{"${what}_pct_old"} = 100 * $val / $old_pegs;          $dat->{"${what}_pct_old"} = 100 * $val / $old_pegs;
315          $dat->{"${what}_pct_new"} = 100 * $val / $new_pegs;          $dat->{"${what}_pct_new"} = 100 * $val / $new_pegs;
316      }      }
317        for my $what (qw(identical differ short long))
318        {
319            my $val = eval "\$$what";
320            $dat->{"${what}_pct_common"} = 100 * $val / $same_stop;
321        }
322    
323      print $fh Dump($dat);      print $fh Dump($dat);
324      return 1;      return 1;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3