Perl(2)

Perl 函数的说明：

$n=10;
sub pxy{
my($n);###定义内部变量--若是不是的话，Perl 默认是全局的变量--也就是说哪里均可以进行引用
$n=0;
}
print "内部变量",pxy();
print "外部变量",$n;

--------------------------------------------------------

 

#### 参数的个数 
sub pxy{
##定义一个变量（局部的变量）
my($one)=shift@_;##这里把第一个参数拿出来啦
print "第一个参数为：$one";
##进行遍历这些参数的值--并把最大的值返回
foreach(@_){
if($_>$one){
#### $_ 表示是当前遍历的对象的值  ---和以前的值作比较
$one=$_;
}
}
$one;###返回
}
$max=pxy(2,4,5,6);
print "the max is ",$max,"\n";

 

###funtction
sub pxy{
my($test,@array)=@_;
foreach(0..$#array){
    if($test eq $array[$_]){
    return $test.$array[$_];
}
}
return -1;
}
$text="p45xy";
@array=qw(pxy2 yui pxy yufui);
print "this is my value ",pxy($text,@array),"\n"; 

###计算1--10000的和 sub sum{ my $n=1; my $sumsum=0; foreach(1..100){ $sumsum+=($n++); } return $sumsum; } print "1---10000 add ",&sum,"\n";