#!/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脚本perl脚本perl脚本perl脚本
Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0版本,Perl-5.10.0...
windows Strawberry Perl 5.32最新版本 ,适合调试 perl windows Strawberry Perl 5.32最新版本 ,适合调试 perl windows Strawberry Perl 5.32最新版本 ,适合调试 perl windows Strawberry Perl 5.32最新版本 ...
While it is used to do a lot of different things, Perl's most common applications are system administration utilities and web programming. A large proportion of the CGI scripts on the web are written...
草莓perl安装包下载,新版本 Strawberry Perl是用于MS Windows的perl环境,其中包含运行和开发perl应用程序所需的一切。 它被设计为尽可能接近UNIX系统上的perl环境。 它包括perl二进制文件,编译器(gcc)+相关...
进入DOS命令行,输入ppm,或通过运行安装perl时创建的快捷方式,在开始ActivePerl_5.1 程序Perl Package Manager 从而启动ppm(图形界面)来选择需要升级的包。 需要升级如下包: AppConfig TimeDate DBI DBD-mysql...
装mysql时提示少perl,安装perl需要依赖包。已包含下面所有包, 版本号匹配。 [Linux]centOS7下RPM安装Perl 下载rpm依赖包,依照顺序安装. perl-parent-0.225-244.el7.noarch perl-...
根据CGI标准,编写外部扩展应用程序,可以对客户端浏览器输入的数据进行处理,完成客户端与服务器的交互操作。CGI规范定义了Web服务器如何向扩展应用程序发送消息,在收到扩展应用程序的信息后又如何进行处理等内容...
windows环境的perl安装包,不用去官网下载了,测试好用。 strawberry-perl-5.32.1.1-64bit.msi离线安装包(官方),可避免从官网下载速度慢的问题。 windows环境的perl安装包,不用去官网下载了,测试好用。 ...
安装的只是perl的一个解释程序啦,外观上也不会发生什么变化,你在windows的cmd界面里输入perl -v可查看你所安装的版本。在你编译perl程序时会用到它。若要编写perl程序需借助其它工具:notepad,eclipse.vim,eclim...
ActivePerl一个可以让你任意执行 Perl 程序的工具软件,其包含了包括有 Perl for Win32、Perl for ISAPI、PerlScript、Perl Package Manager四套开发工具程序,可以让你编写出适用于 unix, windows, linux系统的 CGI...
perl5.10.1安装文件perl5.10.1安装文件perl5.10.1安装文件perl5.10.1安装文件perl5.10.1安装文件perl5.10.1安装文件perl5.10.1安装文件
Perl.TK Perl.TK Perl.TK
Perl语言学习
作为PERL5家族中的一员,PERL6表现出其独特性能。
pt-query-digest是一个perl语言编写的脚本,windows环境默认不支持perl,因此需要安装perl脚本的依赖程序。 1、从官网下载草莓perl(完全开源) http://strawberryperl.com/ 2、从此处下载国内镜像
perl by example && Beginning perl for Bioinformatics && Mastering Perl for Bioinformatics && Programming Perl && Apply Perl && Perl语言编程 && Perl 语言入门 等书,都是PDF版,3本中文,其余都是英文。
基础篇,主要介绍 Perl 的基本语法、数组、哈希、输入输出、函数等。 高级篇,介绍 Perl 的正则表达式、模块 module、面向对象 OOP、 多进程等。 实战篇,介绍 Perl 在芯片设计、验证中的应用。 另外,修正了一些...
PERL LPERL。ADD的用法
perl 神奇的perl-最佳Perl入门