和、均值的计算

#!/usr/bin/perl
#sub total
#count sum of all numbers between two numbers
sub total{
foreach $_(@_){
$sum_total+=$_;
}
return $sum_total;
}
print”Enter some numbers on separate lines,first number:”;
$a=<STDIN>;
print”Enter second number:”;
$b=<STDIN>;
@fred=$a..$b;
my $user_total=&total(@fred);
print”The total of those numbers between $a and $b is $user_total.\n”;
#count sum of all numbers
sub total_2{
foreach $_(@_){
$sum_total_2+=$_;
}
return $sum_total_2;
}
print”Enter some numbers on separate lines:”;
my $user_total_t=&total_2(<STDIN>);
print”The total of those numbers is $user_total_t.\n”;
#count average of all numbers
sub average{
foreach $_(@_){
$sum_total_3+=$_;
$n++;
}
$aver=$sum_total_3/$n;

return $aver;
}
print”Enter some numbers:”;
my $avera=&average(<STDIN>);
print”average is $avera\n”;

——————

《问情》

我们这些二十几岁的人，几乎是伴在这歌声中长大的，百听不厌，虽然那时并不能领悟那些歌词的意思。