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

Question

程式码尽量简单一点，希望最好可以附上讲解，谢谢
需要以notepad来编写perl程式，谢谢

Answer 1

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

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

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

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

Answer 2

最小值： 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"