comparison sum_fastqc.pl @ 9:b3d943bc70ae draft default tip

Uploaded

8:5a9a44e23dad

   @larray=@{$_[0]};
   my($sum) = 0;

   foreach $item (@larray) {
     my($lenrange,$count)=split(/\t/,$item);
     my($l1,$l2)=split(/\-/,$lenrange);
     $sum+=(($l1+$l2)/2)*$count; 
   }
   $sum = sprintf("%.1f",$sum/$nreads);
   return $sum;
}

9:b3d943bc70ae

   @larray=@{$_[0]};
   my($sum) = 0;

   foreach $item (@larray) {
     my($lenrange,$count)=split(/\t/,$item);
     my(@lvals)=split(/\-/,$lenrange);
     if(@lvals==2) {
       $sum+=(($lvals[0]+$lvals[1])/2)*$count; 
     } else {
       $sum+=($lvals[0])*$count; 
     }
   }
   $sum = sprintf("%.1f",$sum/$nreads);
   return $sum;
}