Or possibly better:$ perl -wE 'my $str = "Charles 25 24 26"; my ($name, @vals) = split /\ +s+/, $str; $sum += $_ for @vals; say $sum / @vals;' 25
$ perl -wE 'my $str = "Charles 25 24 26"; my ($name, @vals) = split / +\s+/, $str; my $sum = 0; $sum += $_ for @vals; say $sum / @vals;' 25
In reply to Re: Retrieve average
by Laurent_R
in thread Retrieve average
by Tigor
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |