perl语言,state好像失效了

来源：学生作业帮编辑：搜狗做题网作业帮分类：综合作业时间：2024/06/01 13:01:23

perl语言,state好像失效了
use 5.0.10;
use feature 'state';
sub average{
my $sum=0;
foreach(@_){
$sum+=$_;
}
my $average=$sum/@_;
return $average;
}

sub above_average{
my $num=0;
my $average=&average(@_);
my @list=undef;
foreach(@_){
if($_>$average){unshift(@list,$_);}
}
return @list;
}

sub greet{
state $namelast;
state $namenow;
if($namenow==undef){
$namelast=undef;
$namenow=shift(@_);
print "Hi $namenow","!","You are the first one here\n";
}
else{
$namelast=$namenow;
$namenow=shift(@_);
print "Hi $namenow","!","$namelast is also here ";
}
}

greet("Fred");
greet("Barney");
greet("Tom");
结果：

sub greet{
state $namelast;
state $namenow;
if(! defined $namenow ){ -->这里注意undef不是用等号判断的奥
$namelast=undef;
$namenow=shift(@_);
print "Hi $namenow","! ","You are the first one here\n";
}
else{
$namelast=$namenow;
$namenow=shift(@_);
print "Hi $namenow","! ","$namelast is also here \n";
}
}
再问：改成$namenow eq undef这样就对了。。perl里面比较字符串的操作符弄错了，我把。。。。

perl语言,state好像失效了有一个perl程序,中state的用法错误 perl $@ perl语言中遇到的情况用perl语言测DNA序列,全部分给你! 请帮忙解释一下下面的perl语言的意义编写一段关于blast提取序列的Perl语言是不是狭义相对论失效造成了量子涨落? randn('state',2009);是什么意思?matlab语言英语翻译本文从我国材料失效的研究现状、磨损失效的模式、磨损失效的原因和预防四个方面分析了材料的磨损失效. State 关于火星人电影我要找一部火星人的电影.开始好像是一个火星探测器在火星上,一会探测器在一个石头前失效了,镜头开始往上拉,看