perlquestion
dovah
Hi monks. I am quite new to perl, except from some easy regex stuff :P
so, today I was trying to setup a normalizing function, which would ideally work on arrays. The idea is that we have an input array whose items have to be normalized between 0 and 1. Normalization is quite simple, achieved by:
<code> normalized_array_item = (array_item - array_min) / (array_max - array_min) </code>
So here is a draft of what I prepared.
<code>
sub normalizer {
# to normalize an input array bw 0 and 1
use List::Util qw( min max ); # import min and max module
my $min_numarray = min @array; # get min of args
my $max_numarray = max @array; # get max of args
foreach my $element(@array) { # loop over args
my $numdiv = $element - $min_numarray; # numerator: n - min total
my $numden = $max_numarray - $min_numarray; # denominator: max total - min total
my $normalized = my $numdiv / $numden; # normalize
}
return $normalized;
}
</code>
Actually I would like my function to return the whole normalized array. Could you help me with that? Thanks