perl输入，while小试

#!/usr/bin/perl

##############################################################################

 

sub sum{

 

my $sum;

foreach(@_){

 

$sum+=$_;#取得数组里的每一个数

}

 

$sum;

 

}

 

sub getAvg{

if(@_==0){return}#长度为零

my $avg;

my $len = @_;#如果是变量赋值，那么这里只是把数组的长度赋给了len

print @_;#打印出数组里面的内容

print "\n";

print "长度：";print $len;

print "\n";

print "平均数相加的和：\n";

print sum(@_);

print "\n";

$avg = sum(@_)/$len;

print "平均数：";

print $avg;print "\n";#print语句出现在方法的最后一行时，方法返回1

return $avg;

}

 

sub aboveAvg{

 

my $avgNum = getAvg(@_);

my $list;

 

foreach(@_){

 

if($avgNum<$_){

 

push @list,$_;

}

}

print "大于平均数的值\n";

print @list;

@list;

}

 

print "\n++++++++++++++++平均数开始+++++++++++++++++++\n";

 

aboveAvg(1..8);

 

print "\n++++++++++++++++平均数结束+++++++++++++++++++\n";

 

 

print "\n++++++++++++++++猜数开始+++++++++++++++++++\n";

$randomNum = int(rand 10);

 

print "input a number:";

$guess=<STDIN>;#从键盘上输入内容

chomp $guess;#除去换行符

 

print "\n++++++++++++++++猜数结束+++++++++++++++++++\n";

 

while($randomNum != $guess){

if($guess>$randomNum){

print "too high!\n";

}elsif($guess<$randomNum){

print "too low!\n";

}

 

print "input a number:";

$guess=<STDIN>;#从键盘上输入内容

 

}

 

while (defined($_ = <STDIN>))

{

print "I saw $_";

}