我想请问用perl写程式，写出输入几组数字后可以找出最大值、最小值、平均值的程式，程式码该怎么写?

我想请问用perl写程式，写出输入几组数字后可以找出最大值、最小值、平均值的程式，程式码该怎么写?

print "请输入若干数字, 以空格分开
>"; 
$input = ; # 读入
chomp $input; # 去掉 STDIN 的换行符

@input = split /s+/, $input; # 以空格(s+)为界, 将 $input 分拆并存到 @input 中
@input = sort { $a<=>$b} @input; # 以数字方或 ( {$a<=>$b} ) 将 @input 由小至大排序

print "最大 : $input[$#input]
" ; # $#input 是 @array中最後一个元素 ( 就是排序後最大的了 )
print "最小 : $input[0]
"; # [0] 就是最小那个

$sum += $_ foreach @input; # 一个回路的简写, foreach 会将 @input 历遍, $_ 就是这个元素的值
$avg = $sum / ( $#input + 1 ); 
print "平均 : $avg ";

最小值： perl -MList::Util=min -e" print min(1,3,4,5,6)"
最大值： perl -MList::Util=max -e" print max(1,3,4,5,6)"
平均值： perl -MList::Util=sum -e" print (sum(1,3,4,5,6))/5"

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息