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 $_";
}
页:
[1]