子程序的运用

2015-12-14 0 645
子程序的运用
@a=(); #定义一个全局数组@a 
$a=0;  #定义一个全局标量$a
sub greet{
  push(@a ,@_[0]);
  if($a==0){
  	print "hi ".@a[$a]."! you are the first one here\n";
    $a++;
  }else{
  	#print "hi ".@a[$a]."!".@a[--$a]." is also here";
  	print "hi ".@a[$a].". I've seen:";
  	for($i=0;$i<$a;$i++){
  		print @a[$i]." ";
  	}
  	print "\n";
  	$a++;
  }
}
&greet("fred");
&greet("barney");
&greet("wilma");
&greet("betty");

遇见资源网 perl 子程序的运用 http://www.ox520.com/13148.html

上一篇:

已经没有上一篇了!

下一篇:

已经没有下一篇了!

常见问题

相关文章

发表评论
暂无评论
官方客服团队

为您解决烦忧 - 24小时在线 专业服务