Help for this page

Select Code to Download


  1. or download this
    $ perl -wE 'my $str = "Charles 25 24 26"; my ($name, @vals) = split /\
+s+/, $str; $sum += $_ for @vals; say $sum / @vals;'
25
  2. or download this
    $  perl -wE 'my $str = "Charles 25 24 26"; my ($name, @vals) = split /
+\s+/, $str; my $sum = 0; $sum += $_ for @vals; say $sum / @vals;'
25