当前位置:首页 > 开发 > 编程语言 > 编程 > 正文

perl输入,while小试

发表于: 2015-07-09   作者:zengshaotao   来源:转载   浏览:
摘要: #!/usr/bin/perl ##############################################################################   sub sum{   my $sum; foreach(@_){   $sum+=$_;#取得数组里的每一个数 }   $sum;  

#!/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 $_";

}

 

perl输入,while小试

  • 0

    开心

    开心

  • 0

    板砖

    板砖

  • 0

    感动

    感动

  • 0

    有用

    有用

  • 0

    疑问

    疑问

  • 0

    难过

    难过

  • 0

    无聊

    无聊

  • 0

    震惊

    震惊

编辑推荐
读取标准输入 用<STDIN>进行标准输入:chomp($line=<STDIN>); 如果读到文件尾,行输入
1. 习题 2. 代码与输出 cat_reverse.pl 1 # ----------------------------------------------------
jetty是一个设计很优秀的嵌入式的servlet引擎,精悍短小是其最大的特点;粗略的看了下源码,发现和t
1. 工程结构 设置模板: product.ftl <html> <head> <title>Welcome!</title>
程序代码 <%@ page contentType="text/html;charset=GBK"%> <%@ page import="java.sql.*"
前几天将段式保护模式从理论上了解了。所以这几天就借助一些书籍和网络得力量来争取实践---将代码跳
GitHub是什么? 它是用来进行版本控制的,就是用来保存项目的地方。 但是项目要是运行,还是需要你
今天做一个GIS页面 其中点击左边的A标签时右边的地图动态的显示对应的InfoWindow 弄了半天 代码
GitHub是什么? 它是用来进行版本控制的,就是用来保存项目的地方。 但是项目要是运行,还是需要你
之前有提到和同事搭建了个Git+Gerrit+Jenkins环境,可惜都在一台机器上,中间IT重装系统后就杯具了
版权所有 IT知识库 CopyRight © 2009-2015 IT知识库 IT610.com , All Rights Reserved. 京ICP备09083238号