Yekhande, Seema (MLITS) wrote:
> Do you have any
> idea about why column_average function doesn't works when
> multiple files
> Are passed using the for routine?
> ...
> sub column_average {
> my ($idx) = @_;
> my $sum = sum map {$_->[$idx] if defined $_->[$idx]} @data;
> return $sum;
> }
This doesn't return an average unless you divide by the number of
entries. If you don't want a null entry to count as a zero in the
average, you'll have to capture the number of defined fields in that
column, i.e.:
sub column_average {
my ($idx) = @_;
my @column = map {$_->[$idx] if defined $_->[$idx]} @data;
return sum(@column) / scalar(@column);
}
- Mark.
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
