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;