perl子程序调用

perl子程序调用

use strict;    #使用严格的编程方式

#	sub用来定义子程序
#	参数在@_这个数组里,数组里的第一个元素是$_[0]
sub large{
	if($_[0]>$_[1])
		{
			print($_[0]);}
		else{
				print($_[1]);}
}
&large(15,12);

sub lag{
# 	my定义私有变量
#	my $n   标量上下文
#	my($n)  列表、数组上下文
	my($m,$n);
#	把@_参数中的变量赋值给定义的数组
	($m,$n)=@_;
	if($m>$n){
		print($m)}
	else{
		print($n);}
}	

#	用&进行子程序调用（函数调用）
&lag(15,10);

sub count{
print(scalar @_);
}
&count(2,4,5,7,3,2);



use 5.010;    #使用新版本的perl
#	state 持久化私有变量量，只初始化一次
sub mar{
	state $k=0;
	$k +=1;
	print("$k");
}
&mar;
&mar;