Open GoogleCodeExporter opened 8 years ago
Sorry, have to deref those arrays. I don't write Perl much anymore (for good
reason) ;-)
process_score("$output.err", \@score_counts, \@score_array);
sub process_score {
my ($output, $score_counts_ref, $scores_ref) = @_;
@scores = @{$scores_ref};
@score_counts = @{$score_counts_ref};
my $len = $#scores+1;
my ($i, $j, $k);
open(SSS, "> $output") || die "can not write $output\n";
for ($i=0; $i<$len; $i++){
my $ave = int($scores[$i]/$score_counts[$i]);
my $e = 1 / (10 ** ($ave/10));
print SSS "$i\t$ave\t$e\n";
}
close(SSS);
}
Original comment by ch...@friedline.net
on 5 Apr 2013 at 5:00
Original issue reported on code.google.com by
ch...@friedline.net
on 5 Apr 2013 at 3:06