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";